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ABSTRACT 


Most  tutoring  systems  are  machine  dependent.  In  this  thesis  we  present  an 
intelligent  tutoring  system,  ITS  Ada,  that  exploits  the  designed  portability  of 
Ada.  ITS  Ada  possesses  full  knowledge  of  Ada  as  defined  in  the  official 
language  reference  manual  and  consists  of  four  major  components.  The 
instructional  module  is  a  series  of  screens  pn-esented  in  an  order  determined  by  a 
topic  network  that  covers  the  complete  set  of  concepts  in  the  Reference  Manual 
for  the  Ada  Programming  Language.  Superordinate  concepts  will  be  presented 
only  after  the  prerequisite  concepts  have  been  mastered.  There  are  exercise 
problems  associated  with  each  topic.  The  problems  are  presented  by  the 
diagnostic  module  in  either  an  expository  or  interrogatory  format,  based  on  the 
student's  mastery  level  for  that  concept,  as  determined  by  the  student  module. 
Solutions  to  the  given  problems  are  checked  by  parsing  the  student’s  response 
into  a  meaning  list  and  comparing  the  results  with  solutions  in  the  expert  module. 
ITS  Ada  has  been  tested  on  three  platforms;  PC/InterAda,  Sun 
SparcStationA^erdix  Ada,  and  Apple  Macintosh/Meridian  Ada.  We  believe  it  can 
be  run  on  any  system  with  a  validated  Ada  compiler. 
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I.  INTRODUCTION 


A.  HISTORY  OF  Ada 

In  1974,  the  Department  of  Defense  (DoD)  published  a  report  estimating  the 
future  costs  of  its  software  development  at  the  horrendous  amount  of  over  $3 
billion  annually.  In  addition,  there  were  hundreds  of  languages  or  dialects  being 
used  by  the  DoD  and  its  contractors,  making  it  difficult  to  interchange  programs 
and  programmers  and  virtually  impossible  for  effective  software  maintenance 
(Sammet,  1986,  p.  722). 

In  1975,  at  the  request  of  DoD,  Fisher  of  the  Institute  for  Defense  Analysis 
produced  a  document  called  STRAWMAN  (DoD,  1975),  drafting  the 
requirements  for  a  high-level  language  to  meet  the  programming  needs  of  the 
DoD.  After  comments  were  received  and  integrated,  a  revised  document,  called 
WOODENMAN,  (DoD,  1975)  was  issued  in  late  1975,  followed  by  a  third  set  of 
requirements  labeled  TINMAN  (DoD,  1986)  issued  in  1976.  There  was  no 
existing  language  that  met  all  the  requirements  expressly  stated  in  the  TINMAN 
document.  However,  the  DoD  concluded  that  it  would  be  possible  to  create  a 
programming  language  to  meet  these  requirements. 

The  DoD  issued  contracts  to  four  vendors  for  preliminary  language  designs 
based  on  an  updated  set  of  requirements  called  IRONMAN,  also  developed  by 
Fisher  (DoD,  1977).  In  early  1978,  each  of  the  four  submitted  documents  was 
given  a  color  code  for  identification.  These  language  designs  were  reviewed  and 
the  Red  and  Green  designs  were  chosen  for  further  language  development.  The 
final  designs,  based  on  the  final  set  of  requirements,  called  STEELMAN,  (DoD, 
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1978)  were  sent  out  for  public  commentary  and  the  Green  version  was 
subsequently  chosen  and  named  Ada. 

The  name  Ada  was  chosen  to  honor  Augusta  Ada  Lovelace,  assistant  to 
Charles  Babbage  and  daughter  of  the  poet.  Lord  Byron.  Charles  Babbage,  an  t 

English  mathematician,  designed  a  mechanical  calculator  that  used  punched  cards 
for  control.  Since  Lady  Lovelace  had  ideas  about  the  control  of  this  machine  and 
helped  develop  the  instructions  for  calculating  with  it,  she  is  considered  the  first 
computer  programmer  (Skansholm,  1988,  p.  2).  In  addition,  since  the  name 
Ada  has  no  military  connotations  associated  with  it,  the  DoD  assumed  that  the 
civilian  community  would  be  more  likely  to  use  it,  even  for  civilian 
programming  projects. 

B.  PROLIFERATION  OF  Ada 

Most  other  languages  created  in  the  past  have  had  either  no  control  over 
their  early  growth  and  changes,  or  very  strong  control.  The  Department  of 
Defense  has  tried  to  work  in  the  middle  ground  between  these  two  extremes. 

Their  main  tools  for  doing  this  are  the  policies  of  trademark  and  forbidding 
either  subsets  or  supersets.  The  DoD  policies  regarding  validation  has  also 
helped  control  the  language. 

Ada  has  been  trademarked  since  1981.  The  main  purpose  for  the  trademark 
is  to  prevent  compilers  that  don't  conform  to  the  language  standards  from  being 
sold  as  true  Ada  compilers.  A  true  Ada  compiler  implements  neither  a  subset 
nor  a  superset  of  requirements.  If  a  compiler  implements  anything  other  than 
the  requirements  stated  in  the  STEELMAN  document,  it  must  be  stated. 

Allowing  such  differences  in  any  Ada  compiler  will  affect  the  portability  of  Ada 
software,  and  therefore,  the  compiler  will  not  be  validated. 
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Although  compiler  validation  is  not  new,  it  has  been  handled  in  a  unique  way 
for  Ada.  Unlike  other  language  validation  processes,  Ada  validation  was  planned 
from  the  very  beginning  of  language  development.  To  be  validated,  a  compiler 
must  successfully  run  a  complete  suite  of  tests.  Validation  only  measures  the 
level  of  conformance  with  the  standard.  Because  performance  is  not  measured 
by  the  validation  tests,  any  validated  compiler  may  still  have  bugs  and  poor 
performance  (Sammet,  1986,  p.  727). 

Now  that  validated  Ada  compilers  are  available  for  a  large  number  of 
computer  systems,  the  DoD  has  decreed  that  all  new  software  development  must 
use  Ada  (DoD,  1983)  as  the  implementation  language.  For  most  services,  this 
includes  all  types  of  software:  logistics,  embedded,  business,  and  scientific.  The 
National  Aeronautics  and  Space  Administration  has  adopted  Ada.  The  Federal 
Aviation  Administration  has  chosen  Ada  for  developing  software  on  the  new  air 
traffic  control  system.  In  many  universities,  Ada  is  replacing  Pascal  as  the 
introductory  language  for  structured  language  programming.  Ada  is  even 
gathering  an  expanded  following  in  the  commercial  marketplace  (Riehle,  1989, 
p.  83). 

C.  OBJECTIVES 

Since  Ada  is  a  relatively  new  language  and  is  only  now  being  introduced  to 
students  at  the  undergraduate  level,  there  are  many  computer  professionals  who 
do  not  have  a  working  knowledge  of  the  language,  although  they  are  familiar 
with  general  programming  language  concepts.  A  formal  course  in  Ada  can  take 
upwards  of  40  hours  and  cost  thousands  of  dollars.  Such  a  course  is  not  only 
expensive,  in  terms  of  both  time  and  money,  but  also  impractical  since  few 
professionals  can  afford  to  spend  so  much  time  away  from  the  office. 
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There  is  an  urgent  need  to  develop  a  mechanism  to  teach  Ada  to  these 
potential  Ada  programmers,  at  a  time,  pace,  place  that  are  convenient  and 
comfortable  for  them.  With  the  proliferation  of  computer  equipment  in  our 
environment  today,  we  believe  that  the  computer  itself  is  the  best  medium  to 
achieve  this  goal. 

However,  there  are  hundreds  of  different  computers  in  use.  If  our  product 
is  to  be  a  useful  tool,  the  software  should  be  completely  portable  among  them  all. 
Ada  has  such  portability  designed  into  the  language.  In  fact,  a  perfectly  portable 
Ada  program  would,  without  any  change,  be  compilable  by  any  validated  Ada 
compiler,  on  any  host,  and  be  subsequently  executable,  with  the  required 
behavior  on  the  corresponding  target  for  that  compiler  (Nissen  and  Wallis,  1984, 
p.  4).  Therefore,  in  order  to  help  promote  wide  adoption  and  application  of 
Ada,  we  have  developed,  in  Ada,  a  fully  portable  intelligent  tutoring  system, 
ITS  Ada,  that  teaches  the  basic  knowledge  of  Ada. 

D.  ORGANIZATION  OF  THESIS 

Chapter  II  of  this  thesis  provides  an  overview  of  intelligent  tutoring  systems 
and  reviews  four  computer  based  tutors  that  teach  introductory  programming. 
Chapters  III  and  IV  discuss  the  overall  composition  of  ITS  Ada.  Chapter  III 
describes  the  architectural  design  of  ITS  Ada.  Each  component  of  the  system  is 
discussed  at  the  conceptual  level.  The  interrelationships  between  the  components 
are  also  presented.  Chapter  IV  explores  the  implementation  details  of  each  of 
these  components  and  the  interactions  between  them.  Chapter  V  includes  a 
sample  dialogue  of  3  different  levels  of  students:  good,  fair,  and  poor.  The 
response  by  the  system  is  different  for  each.  Finally,  Chapter  VI  discusses  our 
accomplishments  and  possible  future  work.  The  appendices  contain  the  source 
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code  of  ITS  Ada  and  the  data  files  needed  for  the  system,  as  well  as  a  topic 
network  describing  the  hierarchical  structure  of  instructional  materials  used  by 
the  system. 
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II.  INTELLIGENT  TUTORING  SYSTEMS 


A.  EVOLUTION  OF  INTELLIGENT  TUTORING  SYSTEMS 
Traditional  applications  in  computer-assisted  instruction  (CAI)  were  a  series 

of  screens  manipulated  by  the  user’s  commands  (Uhr,  1969;  Suppes,  1967; 
Woods  and  Hartley,  1971);  but  artificial  intelligence  has  changed  that.  Artificial 
intelligence  (AI)  is  changing  the  nature  of  computing  by  making  computers  able 
to  emulate  human  behaviors  that  require  intelligence.  Intelligent  computer- 
assisted  instruction  (ICAI)  is  the  application  of  artificial  intelligence  techniques 
to  computer-assisted  instruction  (Brown,  Burton  and  DeKleer,  1981;  Clancey, 
1981;  Smith  et  al,  1975).  Applications  constructed  using  ICAI  techniques  are 
also  known  as  intelligent  tutoring  systems  (ITS). 

For  a  tutoring  system  to  be  considered  intelligent,  it  must  pass  three  tests. 
(Bums  and  Capps,  1988,  p.  1)  First,  the  subject  matter,  or  domain,  must  be 
“known”  to  the  computer  system  well  enough  for  this  embedded  expert  to  draw 
inferences  or  solve  problems  in  the  domain.  Second,  the  system  must  be  able  to 
deduce  a  learner’s  approximation  of  that  knowledge.  Third,  the  tutorial  strategy 
or  pedagogy  must  be  intelligent  in  that  the  “instructor  in  the  box”  can  implement 
strategies  to  reduce  the  difference  between  expert  and  student  performance. 

B.  RELATED  WORK 

We  present  the  background  of  three  Intelligent  Tutoring  Systems  which  are 
targeted  for  the  instruction  of  introductory  programming.  The  LISP  Tutor, 
(Anderson,  1988)  provides  instruction  on  problem  solving  using  LISP,  the 
second  and  third,  BRIDGE  (  Bonar  and  Cunningham,  1988)  and  PROUST  (Fiye, 
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Littman,  and  Soloway,  1988),  teach  Pascal  programming  skills,  and  the  last 
ADA-TUTR  (Herro,  1988)  teaches  Ada, 

1 .  LISP  Tutor 

41  The  LISP  Tutor  is  actually  more  of  a  coach  than  a  tutor.  It  walks  the 

student  through  the  creation  of  a  LISP  function,  correcting  the  student's  mistakes 
whenever  he  or  she  deviates  from  a  correct  path  (Burton,  1988,  p.  129),  Since 
the  tutor  knows  what  the  student  is  doing  at  any  time,  it  can  use  immediate 
feedback  for  errors  and  respond  appropriately.  The  tutor  provides  instruction 
and  feedback  in  the  context  of  problem  solving.  It  is  based  on  the  principle  of 
presenting  the  goal  structure  of  the  task  (Pirolli  and  Greeno,  1988,  p,  193).  A 
menu-driven  interface  offers  the  student  choices  about  what  goals  to  attack  next, 
what  strategies  to  use,  what  code  fragment  to  write  down,  and  so  on.  The  model 
offers  so  many  choices  that  any  problem  solving  path  the  student  wants  to  take  is 
available  (VanLehn,  1988,  p.  59).  These  menu  choices  are  used  to  track  the 
student's  cognitive  progress  and  therefore  allow  the  ITS  to  make  a  diagnosis.  A 
production  scheme  is  used  to  represent  the  goals-and-plans  of  programming 
skills  and  misconceptions  (Pirolli  and  Greeno,  1988,  p.  193). 

2.  BRIDGE 

Similar  to  the  LISP  Tutor,  BRIDGE  provides  feedback  in  the  context  of 
problem  solving.  However,  unlike  the  LISP  Tutor,  BRIDGE  does  not  enforce  a 
top-down  refinement  of  programming  goals.  Rather,  BRIDGE  is  based  on  the 
principle  of  illustrating  how  naive  goals  and  plans  can  be  transformed  into 
programming  goals  and  plans  (Pirolli  and  Greeno,  1988,  p.  193).  BRIDGE  was 
.  named  because  it  was  developed  to  “bridge”  the  gap  between  novice  and  expert 

conceptions  of  programming  (Bonar  and  Cunningham,  1988,  p.  410).  The 
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graphically  oriented,  mouse-driven  interface  is  used  in  three  consecutive  phases 
of  program  development.  The  first  phase  also  uses  a  natural  language  menu  to 
adequately  capture  the  concepts  the  student  want  to  express  (Figure  1,  Sonar  and 
Cunningham,  1988,  p,  419). 


Figure  1  BRIDGE  Screen  for  Phase  1 


After  a  natural  language  representation  of  the  solution  is  created,  the 
second  phase  of  development  is  used  to  associate  the  plan  with  the  appropriate 
pseudocoded  tiles  (Figure  2,Bonar  and  Cunningham,  1988,  p.  426). 


Figure  2  BRIDGE  Screen  for  Phase  2 


Finally,  during  phase  3,  the  tiles  are  translated  into  the  corresponding 
Pascal  code  fragments  (Figure  3,  Bonar  and  Cunningham,  1988,  p.  429). 


9 


fe'"  J;** 

mi  -  ^  . 


Figure  3  BRIDGE  Screen  for  Phase  3 


Since  there  is  not  necessarily  a  simple  match  between  a  plan  component 
and  Pascal  code,  students  may  make  a  reasonable  selection  that  BRIDGE  does  not 
accept.  However,  in  most  cases  there  is  a  clear  correspondence  between  the 
initial  goal  and  the  final  Pascal  program. 

The  knowledge  about  how  the  problem  should  be  solved  is  contained  in 
the  problem  definition.  The  requirements  for  a  correct  solution  to  the  problem 
are  associated  with  a  problem-specific  pan  of  each  plan  specification.  These 
requirements  include  information  about  what  phrases  should  appear  in  the 
program  and  the  correct  order  of  those  phases.  If  there  are  discrepancies 
between  the  student's  plan  and  the  requirements,  an  animated  instructor,  named 
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Gworky,  will  appear  on  the  screen  to  give  encouragement  or  suggest  some 
helpful  hints. 

3.  PROUST 

PROUST,  a  knowledge  based  program  understanding  system  which  does 
online  analysis  of  completed  Pascal  programs,  is  intended  to  be  a  tutoring  system 
to  assist  novice  programmers  in  learning  how  to  program.  It  consists  of  two 
components:  a  programming  expert  which  can  analyze  and  understand  buggy 
programs,  and  a  pedagogical  expert  that  knows  how  to  effectively  interact  with 
and  instruct  students. 

PROUST  has  a  knowledge  base  of  programming  plans  and  strategies, 
together  with  common  bugs  associated  with  them,  all  developed  around  a  limited 
domain  aimed  at  teaching  beginning  programming.  Given  a  program  and 
nonalgorithmic  description  of  the  program  requirements,  PROUST  tries  to  find 
the  most  likely  mapping  between  them  by  reconstructing  the  design  and 
implementation  steps  that  the  programmer  has  gone  through  when  writing  the 
program.  This  reconstruction  process  is  meant  to  recognize  the  plans  used  by 
the  programmer. 

Program  bugs  are  characterized  as  properties  of  the  relationship  between 
programs  and  intentions.  They  are  directed  when  there  are  mismatches  between 
the  reconstructed  plans  and  code.  Some  mismatches  are  simply  recognized,  not 
as  bugs,  but  as  common  implementation  variants  of  expected  code,  according  to 
plan  transformation  rules.  Others  can  be  recognized  as  instances  of  specific 
program  bugs  by  bug  rules.  Other  than  these  two  cases,  mismatches  that  cannot 
be  accounted  for  might  result  in  incomplete  or  aborted  program  analysis;  or  they 
might  be  interpreted  as  bugs,  might  be  ignored,  or  might  bring  out  warning 
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messages.  Figure  4  shows  a  sample  program  recognized  by  PROUST  as  a 

correct  solution  to  a  rainfall  program.  The  program  requires  that  the  student 

take  in  an  input  stream  of  rainfall  values,  and  calculates  the  average,  the 

maximum  rainfall  on  any  given  day  during  the  period,  the  number  of  rainy  days,  - 

and  so  forth.  Figure  5  shows  a  buggy  solution  for  the  same  problem.  Figure  6 

is  the  diagnostic  output  for  the  buggy  program  in  Figure  5. 


Program  Ratnfall(input,  output); 

Var  Daily  Rainfall,  TotalRainfall,  Maxfall,  Average  :  Real; 

Rainy  Days,  TotalDays  :  Integer; 

Begin 

RainyDays  ;=  0;  TotalDays  :=  0;  MaxRainfall  :=  0;  TotalRainfall  :=  0; 
Writein  ('Please  Enter  Amount  of  Rainfall'); 

Readln(DailyRainfall); 

While  (DailyRainfall  <>  9999)  Do 
Begin 

If  DailyRainfall  >=  0  Then 
Begin 

If  Daily  Rainfall  >  0  Then  RainyDays  :=  RainyDays  +  1 ; 
TotalRainfall  TotalRainfall  +  DailyRainfall; 

If  DailyRainfall  >  MaxRainfall 
Then  MaxRainfall  :=  DailyRainfall; 

TotalDays  ;=  TotalDays  +  1 
End; 

Else  Writein  ('Rainfall  Must  Be  Greater  Than  O'); 
Read(DailyRainfall) 

End; 

If  TotalDaysCounter  >  0  Then  Begin 
Average  :=  TotalRainfall/TotalDays; 

Writeln('Average  is:  ',  Average;  0:2); 

Writeln('Maximum  is:  ',  MaxRainfall:  0:2); 

Writein  ('Total  Number  of  Days  is;  ',  TotalDays); 

Writeln('Total  Number  of  Rainy  Days  is:  ',  RainyDays) 

End; 

Else  Writeln('No  Valid  Days  Entered.'); 

End. 


Figure  4  Sample  Correct  Program  for  PROUST 
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01  Program  Rainfall(input,  output); 

02  Var  Daily  Rainfall,  TotalRaInfall,  Maxfall,  Average  :  Real; 

03  RainyDays,  TotalDays  :  Integer; 

04  Begin 

05  RainyDays  :s  0;  TotalDays  ;s  0;  MaxRainfall  :=  0;  TotalRainfall  ;=  0; 
06  While  (DailyRainfall  <>  9999)  Do 
07  Begin 


33  End; 

Bug  1 :  Missing  DIvIde-By-Zero  Guard 

34  Average  :=  TotalRainfallTotalDays; 

Bug  2:  Missing  Output  Guard  On  Average 

35  Writeln('Average  is: Average;  0:2); 
Bug  3:  Missing  Output  Guard  On  Maximum 

36  Writeln('Maximum  is: MaxRainfall:  0:2); 


End. 


Figure  5  Sample  Incorrect  Program  for  PROUST 
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Starting  Bug  Analysis,  please  wait ...  NOW  BEGINNING  BUG  REPORT: 

Now  Reporting  CRITICAL  Bugs  in  the  OUTPUT  part  of  your  program: 

Bug  1 :  You  need  a  test  to  check  that  at  least  one  valid  data  point  has 
been  input  before  line  34  is  executed.  The  Average  will  bomb 
when  there  is  no  input. 

Now  Reporting  MINOR  Bugs  in  the  OUTPUT  part  of  your  program: 

Bug  2:  The  average  is  undefined  if  there  is  now  input.  But  line  35 

outputs  it  anyway.  You  should  output  the  average  only  when 
there  is  something  to  compute  the  average  of. 

Bug  3:  The  maximum  is  undefined  if  there  is  no  input.  But  line  36 
outputs  it  anyway.  You  should  output  the  maximum  only 
when  there  is  something  to  compute  the  maximum  of. 

BUG  REPORT  NOW  COMPLETE. 


Figure  6  PROUST  Output  for  program  in  Figure  5 

4.  ADA-TUTR 

ADA-TUTR,  available  through  the  Ada  Repository  at  White  Sands 
Missile  Range  in  Alamagordo,  New  Mexico,  is  an  application  in  computer- 
assisted  instruction.  The  system  is  written  exclusively  for  the  IBM  compatible 
personal  computer.  This  enables  a  wide  range  of  screen  enhancements,  such  as 
inverse  video  and  color.  Three  homework  problems  are  assigned  on  the 
instructional  screens  and  step  by  step  instructions  are  given  in  an  available 
textbook.  The  problems  are  considered  correct  if  they  perform  the  required 
calculations  on  a  series  of  appropriate  test  values. 
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C.  EVALUATING  INTELLIGENT  TUTORING  SYSTEMS 

Intelligent  Tutoring  Systems  can  be  evaluated  based  on  how  well  they 
accomplish  four  main  activities:  modeling  of  knowledge  and  reasoning, 
communication,  cognitive  processing,  and  tutoring  (Woolf,  1988,  p.  34). 

1.  Modeling  of  Knowledge  and  Reasoning 

A  good  tutoring  system  represents  the  domain  knowledge  to  be  taught  in 
such  a  way  that  it  can  reason  about  that  knowledge.  Reasoning  about  the 
knowledge  with  the  goal  to  teach  is  much  different  than  reasoning  about  the 
knowledge  with  the  goal  to  diagnose.  If  tike  goal  of  the  system  is  to  teach,  it  must 
be  able  to  understand  the  strategy  behind  the  knowledge  representation. 

2.  Communication 

Intelligent  Tutoring  Systems  should  take  full  advantage  of  the  hardware 
capabilities  of  the  platforms  on  which  they  were  implemented.  If  possible,  a 
good  tutor  will  include  some  combination  of  simulations,  animations,  icons,  pop¬ 
up  windows,  and  pull-down  menus  (Woolf,  1988,  p.  6).  Even  if  such  amenities 
cannot  be  included,  the  interface  should  be  intuitive  and  simple  to  use.  The 
student's  time  should  be  spent  learning  the  domain,  not  the  interface. 

3.  Cognitive  Processing 

Cognitive  Processing  is  concerned  with  modeling  a  methodology  for 
teaching  the  domain  knowledge,  and  modeling  how  a  student  learns  within  that 
domain.  In  order  to  effectively  teach  a  student,  the  system  must  be  able  to 
diagnose  whether  the  student  understands  the  material  being  presented,  and  if 
not,  what  instructional  style  and  content  would  enable  the  student  to  understand. 
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4.  Tutoring 

Once  the  system  interprets  the  student's  understanding  of  the  material, 
tutoring  is  employed.  Tutoring  includes  praising,  remediation,  interrupting,  and 
presenting  examples  to  the  student  (Woolf,  1988,  p.  7).  A  good  tutoring  system 
has  the  capability  to  respond  to  the  idiosyncrasies  of  a  student  in  an  effort  to 
motivate  the  student  to  continue  to  use  the  application. 

D.  SUMMARY  AND  EVALUATIONS 

The  LISP  Tutor  was  developed  with  the  aim  of  understanding  the  cognitive 
modeling  process  of  intelligent  tutoring  systems  and  was,  at  that  time  (1986), 
considered  revolutionary.  However,  in  the  context  of  all  existing  tutoring 
systems,  it  is  quite  primitive.  The  expert  module  can  determine  only  one 
possible  path  for  the  student  to  proceed  down  while  solving  the  assigned 
problem.  This  limitation  in  modeling  and  reasoning  about  the  knowledge  is 
compounded  by  the  LISP  Tutor’s  lack  of  communication  skills.  All  descriptions 
of  its  interactions  (Burton,  1988,  p.  129;  Pirolli  and  Greeno,  1988,  p.  193; 
VanLehn,  1988,  p.  59)  mention  the  menu-driven  system  and  the  clear  feedback 
from  the  tutor.  However,  because  the  system  interupts  the  user  whenever  he 
begins  down  an  unavailable  path,  it  is  difficult  for  the  student  to  see  the  overall 
changes  in  logic  that  occur  when  even  one  intended  command  is  not  accepted. 
These  constant  interrupt  will  frustrate  even  the  most  conscientious  student.  This 
style  is  usually  considered  coaching,  rather  than  tutoring,  because  the  focus  is  to 
perfect  the  process,  that  is,  get  the  right  answer,  even  if  the  student  never  learns 
why  or  how  he  got  it. 

The  BRIDGE  tutoring  system  is  focused  on  the  goal  of  teaching  the  student 
the  correct  plans  needed  to  solve  the  problem.  Since  the  progression  from  plans 
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to  goal  is  monitored  continuously  via  the  phases  of  development,  the  student  is 
able  to  learn  as  he  goes  along.  In  addition,  the  animated  character  Gworky  is  a 
better  means  of  instructing  the  student  than  the  cold,  harsh  mental  image  of  the 
“computerized  instructor.”  The  ability  to  click  and  drag  the  tiles  with  the  mouse 
enables  the  user  to  concentrate  on  overall  logical  designs  without  having  to 
worry  too  much  about  the  code.  By  monitoring  the  selection  and  placement  of 
the  tiles,  BRIDGE  can  interpret  the  student’s  thought  processes.  This  is  an 
effective  way  to  learn  the  computer  programming  process.  However,  BRIDGE 
is  implemented  for  a  Xerox  machine  exclusively. 

PROUST  receives  a  complete  program  produced  by  the  student  as  input  for 
diagnosis  and  prints  out  a  comprehensive  bug  report  when  the  program  is 
diagnosed  as  incorrect.  Its  emphasis  is  on  developing  the  programming  expert  to 
understand  and  debug  programs.  Relatively  less  effort  has  been  put  in  the 
interactive  instructional  aspects  of  the  system.  PROUST  has  the  ability  to  model 
the  student’s  knowledge,  as  represented  in  his  program,  and  effectively  interpret 
whether  he  understands  the  material.  Although  PROUST  has  exceptional 
diagnostic  abilities,  the  domain  is  limited  to  a  few  basic  concepts. 

The  three  systems  evaluated  above  are  research  products  and  are  limited  in 
their  distribution.  However,  the  ADA-TUTR  is  available  through  shareware 
and  is  easily  obtained  from  the  Ada  Repository.  Although  it  is  advertised  as  an 
intelligent  tutoring  system,  it  has  no  facility  to  model  the  student’s  knowledge 
and,  therefore,  cannot  reason  about  student  progress.  There  is,  in  fact,  limited 
communication  between  the  tutor  and  the  student.  It  is  actually  an  application  in 
computer-assisted  instruction  with  the  addition  of  a  few  homework  problems. 
Since  the  only  feedback  from  the  system  about  the  homework  assignment  is 
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whether  it  is  successful  in  producing  the  same  results  as  the  intended  solution, 
there  is  no  cognitive  processing  involved  at  all.  The  system  cannot  determine 
why  one  comes  up  with  certain  results.  It  just  issues  an  error  message  for  not 
having  answered  the  problem  properly.  The  student  is  then  on  his/her  own  to 
produce  a  different  solution  and  run  the  comparison  program  again. 

Our  ITS  Ada  contains  all  major  components  of  intelligent  tutoring  systems. 
It  instructs  the  student  on  the  content  of  the  concepts  as  it  evaluates  the  student’s 
response  to  the  assignment.  Therefore,  the  student  is  able  to  assimilate  the 
necessary  corrections  before  being  given  another  problem.  The  purpose  of 
ITS  Ada  is  not  only  to  diagnose  any  problems  that  the  student  might  have  while 
learning  the  concepts,  but  also  to  teach  the  student  how  to  solve  the  problems.  It 
is  able  to  model  the  knowledge  represented  in  the  student’s  solution  by  creating 
the  logical  representation  embedded  in  a  meaning  list.  The  student’s  solution  is 
made  available  to  the  system  by  a  built-in  editor.  The  interface  between  the 
student  and  the  system  enables  the  student  to  freely  navigate  the  entire  domain 
and  receive  dynamic  instruction.  Since  the  presentation  of  instructional  material 
depends  on  the  student’s  performance  on  previously  assigned  problems,  ITS  Ada 
is  in  fact  a  tutoring  system. 
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III.  ITS  Ada:  ARCHITECTURAL  DESIGN 


A.  COMPONENTS 

ITS  Ada,  an  intelligent  tutoring  system  that  we  have  developed,  consists  of 
four  interrelated  components:  instructional  module,  expert  module,  student 
module,  and  diagnostic  model,  as  shown  in  Figure  7. 


Figure  7  Architecture  of  ITS  Ada 
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An  application  in  computer-assisted  instruction  uses  just  the  instructional 
module.  This  can  be  viewed  as  nothing  more  than  an  electronic  page  turner. 
The  instructional  screens  are  presented  in  a  predetermined  order.  However, 
when  the  embedded  intelligence  of  the  other  three  modules  is  combined,  we  have 
an  intelligent  computer-assisted  instruction  application.  Note  that  the  user  is 
usually  not  a  component  of  the  instructional  system.  However,  it  is  a  critical 
element  in  its  operation  and  is  essential  in  evaluating  the  effectiveness  of  the 
system. 

B.  USER 

As  with  any  ITS,  there  is  likely  to  be  extensive  variance  within  the  user 
population.  An  ITS  must  be  capable  of  addressing  the  conflicting  characteristics 
of  these  students.  For  example,  some  learners  are  impatient  with  too  much 
review,  while  others  are  upset  with  too  little  review.  A  well-designed  ITS  is  able 
to  cater  to  the  rote  learner  and  also  permit  others  to  control  their  progress  and 
learn  at  their  own  pace  (Johnson,  1988,  p.  196). 

Although  ITS  Ada  makes  problems  available  to  help  the  student  apply  his 
newly  acquired  knowledge,  these  problems  are  not  necessarily  required  to  follow 
the  intended  sequence  of  presentation.  The  user  may  choose  either  a  user 
specific  instructional  sequence  or  a  user  directed  instructional  sequence.  The 
former  presents  assignments  and  the  subsequent  instructional  sequence  is 
determined  by  the  student's  performance  on  the  assignments.  The  latter  option 
does  not  present  assignments  and  the  student  may  chose  any  one  of  the  12  major 
topics  at  the  menu  and  follow  through  the  instructional  sequence  intended  for  a 
student  performing  well  on  the  assignments.  The  second  option  is  included  so 
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that  the  tutor  may  also  be  used  for  reference  or  review  after  the  student  has 
successfully  completed  the  course. 

C.  INSTRUCTIONAL  MODULE 

The  instructional  module  is  the  interface  between  the  user  and  the  ITS.  If 
this  interface  is  confusing  or  poorly  designed,  the  effectiveness  of  the  entire 
session  will  suffer.  Conversely,  a  well-designed  interface  can  enhance  the 
capabilities  of  an  ITS  in  many  ways.  Human  interface  techniques  affect  two 
aspects  of  ITSs.  A  well-designed  human  interface  allows  an  ITS  to  present 
instruction  and  feedback  to  the  student  in  a  clear  and  direct  way.  Secondly,  the 
interface  determines  how  the  student  interacts  with  the  domain.  A  good  interface 
should  ease  this  interaction  (Miller,  1988,  p.  143).  As  a  basic  guideline,  the 
interface  should  be  kept  simple  and  its  use  must  be  intuitive  to  the  student. 

ITS  Ada  was  designed  to  exploit  the  built-in  portability  of  Ada.  It  is 
maintaining  this  portability  that  makes  the  interface  a  challenge.  A  highly 
interactive,  mouse-driven  interface  is  not  possible  because  of  the  close  tie 
between  the  screen  manipulation  actions  and  the  machine  architecture. 
Therefore,  only  crude  graphics,  simple  text  input  and  output,  and  an  elementary 
editor  are  used  to  communicate  with  the  user.  For  example,  the  screens  may  use 
a  series  of  underscore  characters  to  represent  the  top  and  bottom  of  a  box  and 
vertical  lines  to  represent  its  sides.  In  addition,  only  one  character  is  needed  to 
move  from  screen  to  screen  or  between  topics.  Similarly,  the  editor  uses  simple, 
intuitive  commands  to  allow  the  student  to  answer  the  assigned  problems. 
However,  even  with  such  limitations,  the  screen  “lectures”  are  quite  complete  and 
the  feedback  from  the  tutor  is  easily  interpreted. 
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D.  EXPERT  MODULE 

The  expert  module  contains  the  domain  knowledge  for  the  system.  The 
ability  to  encode  and  represent  the  expertise  in  an  ITS  is  the  central  focus  of 
developing  an  expert  module.  Because  of  the  size  of  most  domains,  this  is 
usually  the  most  labor-intensive  portion  of  ITS  development.  There  are  three 
possible  options  to  encode  the  domain  knowledge  and  the  choice  of  these  will,  of 
course,  depend  on  the  domain  itself.  The  first  option  is  to  try  to  find  some  way 
of  reasoning  about  the  domain  that  does  not  require  our  actually  codifying  the 
knowledge  that  underlies  human  intelligence.  This  option  may  require  a 
mathematical  model  to  approximate  the  underlying  domain  knowledge.  The 
second  option  is  basically  going  through  the  standard  stages  of  developing  an 
expert  system.  The  domain  knowledge  is  usually  coded  as  rules  which  explain 
how  to  perform  a  given  task.  The  third  possibility  is  going  one  step  further  and 
actually  creating  a  simulation  (Anderson,  1988,  p.  22). 

The  knowledge  represented  in  ITS  Ada  covers  the  complete  set  of  concepts 
discussed  in  the  Language  Reference  Manual  (LRM)  for  the  Ada  Programming 
Language  (DoD,  1983).  This  information  is  organized  into  the  following  twelve 
topics:  basics  of  Ada,  types,  expressions,  arrays  and  strings,  input  and  output, 
control  statements,  subprograms,  records  and  dynamic  structures,  exceptions, 
files,  packages,  and  tasking.  Each  of  these  major  topics  is  presented  in  a  series  of 
5-12  instructional  screens  and  further  broken  down  into  subtopics  (See 
Appendix  B).  These  topics  and  subtopics  are  organized  in  an  order  that  is 
consistent  with  the  topic  network  in  Appendix  A.  After  being  introduced  to  each 
major  topic  the  student  will  be  given  a  series  of  problems  associated  with  that 
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topic.  The  solution  for  each  of  these  problems  is  contained  in  a  data  file,  which 
is  accessed  during  the  evaluation  of  the  student’s  solution  to  the  same  problem. 

E.  STUDENT  MODULE 

The  student  module  contains  the  student  model.  The  student  model  for 
ITS  Ada  can  only  track  missing  conceptions.  These  are  items  of  knowledge  that 
the  student  should  possess  when  he  or  she  has  mastered  the  materials  taught  by 
ITS  Ada.  Conceptually,  the  student  model  is  a  subset  of  the  expert  model.  This 
is  called  an  overlay  model  because  the  student  model  can  be  envisioned  as  a  piece 
of  paper  laid  over  the  expert  model.  The  missing  conceptions  are  holes  in  the 
student  model  which  expose  those  areas  that  the  student  is  lacking  in  knowledge 
(VanLehn,  1988,  p.  62). 

Conceptually,  the  student  model  is  a  data  structure  describing  the  student’s 
knowledge.  For  this  system,  the  student  model  is  represented  by  an  array  which 
holds  the  student’s  identification  and  the  student’s  degree  of  mastery  in  each  of 
the  topics  monitored.  Problems  or  examples  are  then  displayed,  depending  on 
the  dynamic  level  of  mastery.  After  the  instructional  screens  for  a  topic  have 
been  presented,  the  mastery  level  is  increased.  Similarly,  after  a  sequence  of 
problems  is  successfully  completed,  the  student  model  is  updated  appropriately 
and  subsequent  actions  are  performed  based  on  this  information.  For  example, 
after  the  presentation  of  the  applicable  screens,  the  student  model  is  updated  to 
reflect  the  fact  that  the  student  has  been  introduced  to  that  topic.  Similarly,  after 
a  corresponding  problem  is  assigned,  the  the  student  model  is  updated  again  to 
reflect  that  the  student  has  been  exposed  to  that  topic.  If  two  consecutive 
problems  are  successfully  completed,  the  student  has  demonstrated  his  knowledge 
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in  the  topic  and  the  student  model  is  updated  to  reflect  this  demonstrated  level  of 
mastery. 

F.  DIAGNOSTIC  MODULE 

The  diagnostic  module  performs  three  functions.  First,  it  accepts  input  from 
the  student  for  an  assigned  problem  via  a  simple  editor  in  the  instructional 
module  and  creates  a  meaning  list,  which  is  a  series  of  records  representing 
either  a  token  or  the  association  of  a  token  to  a  lexical  construct.  Second,  the 
diagnostic  module  checks  this  solution  against  the  expert's  solution  and  addresses 
any  discrepancies  between  the  two.  Third,  in  response  to  the  interpretation  of 
the  student's  performance  on  the  assignment,  the  student  model  is  updated 
appropriately  and  subsequent  actions  are  determined.  In  short,  while  the  student 
model  is  the  data  structure  describing  the  students'  knowledge,  the  diagnostic 
module  manipulates  that  data  (VanLehn,  1988,  p.  55). 

After  the  complete  sequence  of  instructional  screens  have  been  displayed,  a 
problem  definition  is  displayed  and  the  editor  is  invoked.  The  editor  prompts 
the  user  with  an  @  sign  and  provides  commands  for  adding,  deleting  and 
modifying  lines  of  program  statements.  In  addition,  further  modification  within 
each  line  enables  the  user  to  insert  and  delete  individual  characters.  When  the 
student  is  satisfied  with  his  response,  he  may  request  that  his  solution  be 
compared  to  the  systems  response  to  the  same  problem.  At  this  point,  the 
student's  response  is  parsed  into  a  meaning  list.  However,  if  a  parsing  is  not 
possible,  the  system  will  inform  the  student  that  there  is  a  syntax  error  and 
indicate  the  line  where  it  has  been  identified.  The  student  will  then  be  able  to 
correct  any  syntax  errors,  without  penalty,  and  try  again.  If  the  syntax  check  is 
successful,  a  doubly-linked  list  is  created.  A  new  node  is  added  for  each  token  or 
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lexical  construct  identified.  A  lexical  construct  is  recognized  when  the  right 
hand  side  components  of  the  embedded  rule  representing  it  have  also  been 
recognized  This  process  continues  until  the  complete  solution  has  been  parsed 
and  its  representative  meaning  list  has  been  created. 

Since  this  meaning  list  is  a  logical  representation  of  the  student's  solution,  the 
student's  meaning  list  can  be  compared  to  the  expert's  list  and  any  discrepancies 
between  the  two  can  be  identified.  The  meaning  lists  are,  in  essence,  compared 
from  the  outside  in.  The  overall  structure  of  the  two  lists  should  be  identical. 
For  example,  if  the  problem  statement  asks  for  the  construction  of  a  case 
statement,  both  meaning  lists  will  represent  case  statements.  In  addition,  each 
component  of  that  overall  structure  will  be  compared.  Each  case  statement 
alternative  in  the  expert's  list  should  also  be  present  in  the  student's  list. 
Similarly,  the  sequence  of  statements  associated  with  each  alternative  should  be 
present.  The  diagnostic  module  is  not  necessary  looking  for  the  two  solutions  to 
be  identical;  but,  logically  equivalent. 

The  diagnostic  module  monitors  the  overall  performance  of  the  student  for 
each  topic.  Even  though  several  problems  may  be  presented  for  each  topic,  it  is 
the  overall  performance  on  the  set  of  problems  that  determines  the  instructional 
strategy  to  employ  next.  For  example,  if  one  student  successfully  completes  the 
first  two  problems  that  have  been  assigned,  they  will  be  treated  the  same  way  as 
another  student  who  gets  one  right,  gets  one  wrong,  and  then  gets  two  right  in  a 
row.  Similarly,  if  one  student  gets  the  first  two  problems  wrong,  they  will  be 
treated  the  same  way  as  another  student  who  gets  one  wrong,  gets  one  right,  and 
then  gets  two  wrong  in  a  row.  We  believe  that  the  second  student  will  ultimately 
end  up  in  the  appropriate  category  of  performance,  i.e.,  successful  or 
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unsuccessful.  However,  it  may  take  him  longer  to  prove  that  he  has,  in  fact, 
acquired  the  necessary  knowledge.  Or,  conversely,  it  may  take  a  little  longer  for 
him  to  prove  that  he  has  been  unable  to  assimilate  and  apply  the  required 
knowledge. 

G.  INTERACTION  BETWEEN  MODULES 

The  components  of  the  system  interact  to  ensure  that  the  student  receives  the 
proper  instruction,  in  the  proper  format,  at  the  proper  time.  The  user  interacts 
with  the  instructional  module  through  the  keyboard  and  the  monitor.  Simple  one 
character  responses  are  used  to  allow  the  student  to  navigate  through  the 
ITS  Ada  domain.  When  there  is  an  appropriate  opportunity  for  test  and 
evaluation,  control  is  passed  to  the  editor  embedded  in  the  diagnostic  module. 

At  the  student's  request,  his  proposed  solution  to  an  assigned  problem  is 
taken  from  the  editor  and  parsed  by  the  expert  module  into  a  meaning  list.  The 
parser  also  parses  the  expert's  solution  to  the  same  problem.  Both  of  these 
meaning  lists  are  then  compared  in  the  diagnostic  module. 

Based  on  the  results  of  the  comparison  between  the  student's  and  expert's 
meaning  lists,  the  diagnostic  module  decides  what  action  to  take  next.  The 
possibilities  are  to  present  another  problem,  present  an  example,  or  transfer  back 
to  the  instructional  module.  According  to  the  diagnostic  module's  evaluation,  the 
instructional  module  will  then  present  additional  screens  in  a  related  topic  for 
remedial  instruction  or  move  forward  through  the  curriculum  and  present 
screens  on  a  superordinate  topic.  This  process  continues  until  the  student 
curriculum  is  complete  or  the  student  decides  to  quit  the  session.  His  next  session 
will  begin  where  he  has  left  off,  assuming  he  uses  the  same  user  identification 
upon  resuming  the  ensuing  tutoring  session. 
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Although  the  parser  is  the  major  element  of  the  expert  module,  the 
instructional  screens  can  also  be  considered  part  of  this  module  since  all  the 
knowledge  required  to  successfully  complete  the  assigned  problems  is  contained 
in  some  combination  of  these  screens. 
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IV.  ITS  Ada:  IMPLEMENTATION  DETAILS 


In  this  section  we  describe  the  implementation  details  of  ITS  Ada.  Figure  8 
represents  the  physical  tiles  which  make  up  the  overall  structure  of  ITS  Ada  and 
the  necessary  compilation  order. 


instructional  module 
student  module 


]  expert  module 
]  diagnostic  module 


Figure  8  Implementation  Diagram  for  ITS  Ada 

The  parser,  the  editor,  and  the  diagnostics  packages  must  be  compiled  before 
the  instructional  package.  In  addition,  the  three  supporting  tiles,  topics .  dat , 
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problems.dat,  andsolutions.dat,  must  be  available  when  the  tutor  is 
invoked.  The  data  file  user .  dat  will  be  created  when  the  tutor  is  used  for  the 
first  time  and  will  remain  on  the  system  thereafter. 

A.  INSTRUCTIONAL  MODULE 
1 .  Instructional  Screens 

The  instructional  module  presents  the  lecture  portion  of  the  instructional 
sequence.  The  screens  package  accesses  the  data  file  topics,  dat  and  is  used 
by  the  screens  program.  This  data  file  contains  112  screens  of  text,  divided  into 
12  topics.  Each  screen  is  represented  by  25  lines  of  79  characters  each.  These 
proportions  were  chosen  to  accommodate  a  standard  computer  screen.  Each 
screen  is  encoded  with  the  chapter  and  page  that  it  represents.  These  screens  are 
direcdy  accessible  from  the  screens  program. 

The  screens  package  contains  the  procedures  used  to  manipulate  the 
instructional  screens.  Procedures  exist  to  load  screens,  display  screens  and  get 
user  information.  Each  time  the  load  screens  procedure  is  called,  14  screens 
worth  of  information  are  loaded  into  a  buffer.  This  caching  ability  minimizes 
calls  to  the  data  file.  The  screens  are  loaded  at  each  topic  boundary.  Therefore, 
the  whole  chapter’s  worth  of  screens  is  loaded  when  reaching  the  first  page  if 
moving  forward,  or  when  reaching  the  last  page  if  moving  backward. 

In  addition,  this  package  contains  the  procedures  used  to  display  the 
screens.  The  opening  screen,  a  generic  screen,  and  the  menu  screen  are  each 
treated  differently.  The  opening  screen  presents  24  lines  of  text  of  79  characters 
each  and  a  25th  line  of  33  characters.  The  user  is  then  requested  to  enter  his  or 
her  user  identification.  This  is  necessary  to  access  the  data  file  user .  dat  which 
contains  their  student  model.  Similarly,  a  generic  screen  presents  24  lines  of  text 
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of  79  characters  each  and  a  25th  line  of  78  characters.  The  user  is  then  required 
to  make  a  choice  of  which  option  they  would  like.  Options  are  available  to  either 
move  forward  to  the  (N)ext  screen,  move  backward  to  the  (P)revious  screen,  go 
back  to  the  (M)enu  or  (Q)uit  the  program.  If  none  of  these  four  characters  are 
received,  the  system  will  default  to  moving  the  user  forward  to  the  next  screen 
(Figure  9). 


SCREEN  MANIPULATION 


When  the  student  is  in  the  instructional  sequence,  the  commands  available  are 


(N)ext  screen 
(P)revious  screen 
(M)  enu 
<Q)uit 


—  next  screen  or  homework  problem 

—  ignores  homework  problems 

—  main  menu 

—  quits  the  tutoring  system 


While  the  system  is  in  the  user  specific  instructional  sequence,  the  sequence 
of  instructional  screens  will  be  determined  by  the  user's  performance  on  the 
homework  problems  that  have  been  assigned.  However,  when  the  system  is  in  the 
quick  reference  mode,  the  sequence  of  instructional  screens  is  determined  by  a 
topic  network  and  no  homework  problems  will  be  assigned.  Each  topic  presented 
may  be  based,  at  least  in  part,  on  material  from  from  previous  chapters. 


Figure  9  Screen  Manipulation  Instructions  for  ITS  Ada 

The  menu  screen  (Figure  10)  is  presented  as  a  generic  screen,  however, 
the  response  requested  by  the  user  is  an  integer  value  between  0  and  12.  At  this 
point,  the  user  has  the  options  of  requesting  a  user  specific  instructional  sequence 
or  a  user  directed  instructional  sequence.  The  former  is  chosen  by  using  the  "0" 
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option  on  the  menu,  while  the  latter  is  chosen  by  using  the  number  that 
corresponds  to  the  chapter  which  the  user  would  like  to  access.  The  user 
specific  sequence  is  the  normal  tutoring  mode.  This  includes  the  presentation  of 
applicable  examples  and  problems.  The  user  directed  option,  however,  will  only 
present  the  instructional  screens,  without  any  intermittent  challenges  of  problem 
solving.  This  option  will  make  this  system  available  for  review  and  reference 
after  the  student  has  completed  the  course  of  instruction. 


**** 

MENU 

****************************************** 

* 

« 

*  0 

User  Specific  Instructional  Sequence  * 

* 

* 

1 

QUICK  REFERENCE 

Basics  of  Ada 

2 

Types 

3 

Expressions 

A 

Arrays  and  Strings 

5 

Input  and  Output 

e 

Control  Statements 

7 

Subprograms 

8 

Records  and  Dynamic  Data  Structures 

9 

Exceptions 

10 

Files 

11 

Packages 

12 

Tasking 

Figure  10  Menu  Screen  from  ITS  Ada 
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2.  Editor 

The  instructional  module  includes  an  editor.  Although  it  is  not  necessary 
if  the  student  selects  the  directed  instructional  sequence,  the  editor  is  an  intricate 
part  of  the  interface  for  the  user  specific  instructional  sequence  in  ITS  Ada. 
When  the  instructional  portion  of  a  topic  has  been  presented,  the  student  will  be 
asked  to  solve  a  series  of  problems.  These  problems  are  kept  in  text  form  in  a 
data  file  problem .  dat .  There  is  a  hard-coded  table  which  indicates  which  lines 
from  the  file  should  be  displayed  for  that  problem.  After  the  problem  has  been 
printed  on  the  screen,  the  student  will  be  placed  directly  into  the  editor  to  write 
Ada  code  in  response  to  the  pic  problem  just  presented.  The  editing  functions 
available  are  outlined  on  an  instructional  screen  (Figure  11). 


EDITOR 

When  the  student  is  asked  to  solve  a  programming  problem,  he  will  be  transferred 
to  the  editor.  Although  the  editor  is  primitive,  it  provides  all  the 
capabilities  necessary  to  successfully  complete  the  homework  assignments. 


(A)dd  line 
(S) ave 
(Q)uit 

(C)  heck 

(D) elete  line  #/range 
(P)roblem  statement 
(L) ist 

(L)  ist  line  4/range 

(M) odify  line  4/range 


A  8  —  add  lines  after  line  8 

—  saves  as  the  solution  for  the  problem 

—  quits  the  editor 

—  saves  and  checks  the  response 

D  8  —  removes  line  8  from  sequence  and  renumbers 

—  restates  the  initial  problem 

—  lists  all  the  lines  in  the  file 

L  8-12  —  lists  lines  8  through  12,  inclusive 

M  8  —  prints  out  line  8  and  enables  insertions/ 

deletions 


8  The  brown  fox  jumped  over  the  lazy  dog. 
(I)nsert  I  quick 

8  The  quick  brown  fox  jumped  over  the  lazy  dog. 
(D)elete  DDDDD 

8  The  quick  brown  fox  jumped  over  the  dog. 


Figure  11  Editor  Instruction  for  Commands  in  ITS  Ada 
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After  editing  is  complete,  the  student  can  then  submit  the  problem  to 
be  checked  and  evaluated  by  the  diagnostic  module. 

B.  STUDENT  MODEL 

The  student  model  is  used  to  keep  track  of  the  knowledge  acquired  or 
compiled  by  the  student  (VanLehn,  1991).  Knowledge  acquisition  is  the  process 
of  getting  information  into  one's  brain.  This  can  be  accomplished  by  means  of 
reading  text  and  reviewing  examples.  However,  knowledge  compilation  is  the 
process  of  cataloging  and  assimilating  this  information  in  one's  brain.  This  can 
be  only  be  accomplished  by  engaging  in  problem  solving.  Therefore,  we  have 
made  a  distinction  between  those  students  who  have  acquired  knowledge  and 
those  who  have  proven  that  they  have  compiled  the  knowledge. 

The  data  file  user .  dat,  which  is  accessed  by  the  screens  package  is  used  to 
build  the  student  model.  For  this  application,  the  student  model  is  simply  an 
array  of  records.  Each  record  contains  the  user  identification  and  their  level  of 
mastery  for  each  topic  monitored.  The  student's  level  of  mastery  is  represented 
by  an  enumeration  type;  unknown  means  that  the  student  has  not  been  introduced 
to  the  concepts  yet,  exposed  means  that  the  student  has  been  exposed  to  the 
information  on  the  instructional  screens,  and  demonstrated  means  that  the  student 
has  demonstrated  that  he  has  acquired  knowledge  in  that  area  by  means  of 
correctly  solving  a  series  of  problems.  In  addition,  there  is  also  a  field  to  show 
the  last  topic  which  was  successfully  completed  by  that  student.  This  file  is 
updated  following  the  completion  of  each  major  topic.  This  is  necessary  for  the 
user  to  be  able  to  pick  up  instruction  where  he  has  left  off  in  the  previous 
session. 
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C.  EXPERT  MODULE 

The  expert  module  contains  the  domain  knowledge  for  ITS  Ada.  In  our 
case,  we  need  to  represent  the  entire  definition  of  the  Ada  programming 
language.  Using  AY  ACC  (Schmalz,  1988,  p.  1),  a  compiler  generator  from 
University  of  California,  Irvine,  we  produced  a  parser  for  Ada,  AYACC  uses  a 
BNF  style  specification  of  a  grammar  and  constructs  a  state  machine  which 
behaves  like  an  expert  system  .  These  additional  statements  are  strategically 
located  in  those  rules  that  are  major  Ada  program  elements.  All  these  rules  are 
identified  in  the  file  ada.y  (Appendix  C),  which  is  the  input  file  for  the 
AYACC  program.  Some  of  the^e  rules  also  have  an  additional  statement, 
{assign_association(yy.rule_id);},  associated  with  them.  This  additional  Ada 
statement  was  added  so  that  a  record  is  added  to  the  growing  meaning  list  when  a 
lexical  construct  is  recognized  as  being  fully  parsed.  These  records,  which 
actually  hold  the  integer  value  of  the  rule  being  parsed  are  added  so  that  the  logic 
of  the  overall  solution  can  be  maintained  and  any  discrepancies  can  be  identified 
by  name  by  the  diagnostic  module. 

Since  ITS  Ada  was  built  on  the  assumption  that  small  representative 
program  constructs,  called  templates,  should  be  taught  to  the  students,  only  small 
problems  have  been  assigned.  Ideally,  these  templates  can  be  combined  to  create 
larger  blocks  of  code  or  complete  systems  according  to  the  structured 
programming  paradigm.  However,  the  parser  produced  by  the  AYACC  expects 
a  full  compilation  unit  to  be  parsed.  This  obstacle  is  overcome  by  associating  the 
problem  definition  with  a  particular  state  in  the  state  machine.  For  example,  if 
the  problem  is  to  create  a  case  statement,  the  expert  module  will  set  up  the  parser 
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to  expect  a  case  statement.  Therefore,  the  expert  module  knows  both  which 
program  construct  to  expect  and  when  to  expect  it. 

AY  ACC  generates  a  total  of  four  files:  acia_tokens.a, 
ada_shift_reduce . a,  ada_goto.a  and  ada.a.  The  file 
ada_tokens.a  is  a  package  that  provides  the  type  and  the  variable 
declarations  needed  by  both  the  parser  and  the  lexical  analyzer  supplied  with  the 
AY  ACC  program.  Had  this  not  been  available,  a  complete  BNF  specification  for 
Ada  can  be  found  in  the  Ada  Reference  Manual  (DoD,  1983,  Appendix  E). 

The  files  ada_shift_reduce .  a  and  ada_goto .  a  are  packages  used  by 
the  parser  which  contain  the  tables  of  states  and  the  progression  between  states  in 
the  state  machine.  These  are  generated  as  separate  packages  rather  than  nested 
within  the  parsing  procedure  to  prevent  them  from  being  pushed  onto  the  stack 
with  each  invocation  (Schmalz,  1988,  p.  2).  Although  the  tables  contained  in 
these  packages  could  be  placed  within  a  single  package,  some  Ada  compilers  may 
have  problems  compiling  the  large  preinitialized  arrays  which  comprise  the 
tables.  The  final  file,  ada.a,  is  the  parser  itself.  It  contains  the  parsing 
procedure  and  the  additional  Ada  code  that  was  designed  specifically  for  its 
function  as  the  expert  module  for  ITS  Ada. 

The  parser  generated  by  AY  ACC  expects  a  full  compilation  unit  as  input. 
Since  it  was  not  practical  for  the  solutions  to  the  first  problems  assigned  to 
require  the  construction  of  a  complete  compilation  unit,  we  tapped  into  the  state 
machine  representation  of  the  parser.  The  virgin  parser  initialized  the  state 
machine  to  state  0,  thereby  setting  up  the  parser  to  expect  a  full  compilation  unit. 
However,  by  initializing  the  parser  to  the  state  obtained  just  prior  to  parsing  the 
desired  program  element,  the  parser  will  into  correctly  parse  a  program 
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fragment  without  complaining.  The  required  initialization  state  is  associated 
with  the  problem  in  a  preinitialized  array  contained  in  the  main  program.  This 
allows  us  to  maintain  the  desired  modularity  of  design. 

D.  DIAGNOSTIC  MODULE 

As  stated  before,  the  diagnostic  module  performs  three  functions:  accepting 
a  meaning  list  as  input,  checking  this  list  for  errors,  and  updating  the  student 
model.  After  the  student  has  completed  editing  his  proposed  solution  and  has 
submitted  the  problem  to  be  checked  and  evaluated,  the  driver  initiates  the 
parsing  of  that  block  of  code.  The  parsing  is  done  by  the  expert  module.  If 
there  are  any  syntactical  errors  in  the  code,  a  error  message  to  that  effect  will  be 
displayed  at  the  point  where  an  error  was  detected.  The  student  will  then  be  sent 
back  to  the  editor  to  make  the  necessary  changes. 

On  the  other  hand,  if  the  code  has  been  determined  to  be  syntactically 
correct,  the  next  phase  of  evaluation  will  begin.  The  parser  creates  a  meaning 
list  which  represents  the  program  fragment  that  has  been  parsed.  This  meaning 
list  is  a  doubly  linked  list  of  records.  Each  record  represents  either  a  token  or  a 
lexical  element.  To  illustrate,  assume  the  student  has  been  asked  to  construct  a 
case  statement  which  will  associate  a  particular  month  with  the  appropriate 
season.  Both  the  student's  solution  (Figure  12)  and  the  expert’s  solution  (Figure 
13)  will  be  parsed  into  a  meaning  list.  Since  both  the  tokens  and  the  lexical 
constructs  are  represented  in  the  meaning  lists  (Figures  14  and  15),  any 
differences  between  the  two  meaning  lists  can  be  identified  by  name. 
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1  case  MONTH  is 

2  when  DEC  |  JAN  => 

3  SEASON  >  WINTER; 

4  when  MAR  |  APR  |  MAY  »> 

5  SEASON  SPRING; 

6  whenJUN|JUL|  AUG»> 

7  SEASON  SUMMER; 

8  when  SEP  |  OCT  |  NOV  => 

9  SEASON  :=  FALL; 

10  end  case; 


1  case  MONTH  is 

2  when  DEC  I  JAN  |FEB=> 

3  SEASON  :=  WINTER; 

4  when  MAR  1  APR  |  MAY  => 

5  SEASON  SPRING; 

6  whenJUN  I  JUL|  AUG=> 

7  SEASON  SUMMER; 

8  when  SEP  |  OCT  |  NOV  => 

9  SEASON  FALL; 

10  end  case; 


Figure  12  Student’s  Solution 


Figure  13  Expert's  Solution 


These  discrepancies  are  tracked  by  a  dynamic  array  which  holds  data  on  the 
token  in  question  and  its  position  in  the  two  meaning  lists.  If  the  token  appears 
in  both  lists,  even  if  it  is  out  of  order  within  the  construct,  then  the  token  is  not 
considered  a  problem.  However,  if  the  token  appears  only  in  the  expert's 
meaning  list,  it  is  identified  as  a  missing  element.  Similarly,  if  the  token  appears 
only  in  the  student's  meaning  list,  it  is  identified  as  an  unnecessary  element. 
These  discrepancies,  and  the  tokens  in  question,  are  printed  out  for  the  student. 

Depending  on  the  student's  past  performance  on  problems  in  this  series  and 
the  evaluation  of  the  current  solution,  the  student  will  be  given  either  another 
problem,  an  example,  or  remedial  instruction  in  a  related  area.  The  strategy  will 
be  determined  by  the  following  heuristics  outlined  in  Figure  16. 
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Figure  14  Expert's  Meaning  List 


38 


1000 

50 

188 

49 

48 

189 

END  OF  INPUT 

case  statement 

case 

end 

case  statement 

alternative 

185 

assignment 

statement 


46 

45 

44 

43 

FALL 

SEASON 

-> 

330 

or 

choice 


76 

simple 

expression 

choice 


42 

NOV 

41 

1 

330 

or 

choice 


76 

simple 

expression 

choice 


40 

OCT 


39 

I 


76 

simple 

expression 

choice 


38 

37 

189 

36 

SEP 

when 

case  statement 

alternative 

' 

185 

assignment 

statement 


35 

34 

SUMMER 

:  - 

33 

32 

SEASON 

-> 

330 

or 

choice 


76 

simple 

expression 

choice 


31 

30 

AUG 

1 

330 

or  choice 


76 

simple 

expression 

choice 


29 

28 

JUL 

1 

76 

simple 

expression 

choice 


27 

26 

JUN 

when 

189 

case  statement 
alternative 


185 

assignment 

statement 


24 

23 

22 

n 

SPRING 

SEASON 

330 

or  choice 


76 

simple 

20 

19 

expression 

HAY 

1 

choice 


330 

or  choice 


76 

simple 

expression 

choice 


76 

simple 

expression 

choice 


16 

15 

MAR 

when 

189 

case  statement 
alternative 


11 

10 

SEASON 

-> 

choice 


330 

or 

choice 


76 

simple 

expression 

choice 


7 

6 

JAN 

1 

76 

simple 

expression 

choice 


3 

is 

2 

MONTH 

1 

case 

18 

17 

APR 

1 

185 

assignment 

statement 


13 

WINTER 


X 

X 

5 

DEC 

4 

when 

Figure  15  Student's  Meaning  List 
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Figure  16  Diagnostic  Strategy  for  Next  Presentation 

After  the  lecture  portion  of  the  topic  has  been  presented,  the  first  of  five 
possible  problems  for  the  topic  is  assigned.  If  the  first  problem,  problem  a,  is 
completed  successfully  (shown  as  P  in  Figure  16),  the  second  possible  problem  is 
assigned.  If  this  problem,  problem  b,  is  also  completed  successfully,  then  the 
student  model  is  updated  to  reflect  this  exceptional  performance.  The  instruction 
moves  on  to  another  topic.  However,  if  either  problem  was  not  successfully 
completed  (shown  as  F  in  Figure  16),  the  next  problem  data  will  be  presented  as 
an  example.  An  example  consists  of  a  problem  and  a  solution.  (It  is  therefore 
necessary  for  the  diagnostic  module  to  be  able  to  access  the  solution  to  an 
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assigned  problem.  These  solutions  are  held  in  text  format  in  the  data  file 
solutions  .  dat.)  Once  the  diagnostic  module  determines  that  an  example 
should  be  presented,  the  problem  statement  will  be  displayed,  followed  directly 
by  the  solution.  After  an  example  is  presented,  a  third  problem,  problem  c,  will 
always  be  presented  and  if  two  consecutive  problems  are  unsuccessfully 
completed,  the  student  will  be  given  remedial  instruction. 

The  set  of  the  problem  material  for  this  dynamic  sequence  remains  consistent 
throughout  the  instruction.  However,  the  format  for  the  problems  depends  on 
the  previous  format  and  the  student’s  performance.  For  example,  the  problem 
material  for  the  sequence  will  always  will  start  with  problem  material  1  in  a 
problem  format.  However,  problem  material  2  could  be  presented  as  either  a 
problem  or  an  example,  depending  on  the  student’s  performance  on  the  first 
problem.  Similarly,  problem  material  3  will  be  presented  as  a  problem,  an 
example,  or  not  at  all.  Problem  material  3  will  not  be  presented  if  the  previous 
two  problems  were  correctly  solved.  This  cycle  continues  with  the  problem 
material  going  from  1  to  5,  then  back  to  1  again,  and  the  problem  format 
changing  according  to  the  above  diagram. 

If  the  diagnostic  module  determines  that  remedial  instruction  is  required,  the 
actual  topic  of  that  instruction  will  be  consistent  with  the  topic  network 
(Appendix  A)  constructed  for  ITS  Ada  based  on  the  layout  of  the  Ada  Language 
Reference  Manual  (DoD,  1983).  This  network  outlines  all  subordinate  and 
superordinate  concepts  that  are  required  for  a  particular  topic.  The  diagnostic 
module  will  determine  which  of  the  related  subordinate  topics  should  be 
presented  depending  on  the  lexical  constructs  identified  with  the  problematic 
discrepancies.  These  subordinate  topics  are  determined  by  a  case  statement  in  the 
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diagnostic  module.  As  more  or  different  problems  are  added  to  this  ITS,  this 
will  have  to  be  updated. 

E.  HARDWARE  PLATFORMS 

ITS  Ada  has  been  tested  on  three  platforms  running  three  different 
compilers:  Zenith  248/InterAda  version  4.2.1,  Macintosh/Meridian  version 
4.0.1,  and  Sun  SparcStation/  Verdix  Ada  version  6.0.  It  has  demonstrated  to  be 
completely  portable  between  them.  However,  modifications  had  to  be  made  to 
the  basic  program  to  accommodate  the  Meridian  compiler  on  the  Macintosh. 
Since  this  Meridian  compiler  runs  in  a  Macintosh  Programming  Workshop 
(MPW)  shell,  the  I/O  is  line  buffered.  This  means  that  for  same  line  prompting 
to  work  properly,  the  prompt  itself  must  be  stripped  out  of  the  input  from  the 
screen,  leaving  only  the  student's  response  to  be  considered. 
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V.  SAMPLE  SESSIONS  WITH  ITS  Ada 


In  this  chapter,  we  present  two  scenarios  depicting  the  interactions  between  a 
student  and  ITS  Ada.  The  first  scenario  is  for  a  good  student,  one  who  is  able  to 
correctly  answer  the  first  two  problems  presented  for  a  particular  topic.  The 
second  is  for  an  average  student,  a  user  who  may  have  difficulty  initially,  but 
eventually  solves  two  consecutive  problems,  and  is  therefore  able  to  move  on  to 
the  next  topic. 

A.  INSTRUCTIONAL  MATERIAL 

Upon  starting  a  topic  in  ITS  Ada  all  three  students  will  see  the  same  set  of 
instructional  screens.  All  screens  for  a  particular  topic  are  presented  before  any 
excersise  problems  are  assigned.  For  this  illustrative  example,  we  will  present 
the  sequence  of  screens  for  the  topic  of  Control  Statements  and  the  problems 
associated  with  that  topic.  This  topics  includes  such  subtopics  as  conditionals, 
loops,  and  the  case  statement.  This  sequence  of  screens  is  shown  in  Figures  17 
through  23. 
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PARTS  OF  A  PROGRAM 

6-1 

In  slir^le  terms,  an  Ada  program  consists  of  a  specification  part,  a 
declarative  part  and  a  statement  part.  The  specification  of  a  program 
contains  its  name  and  a  description  of  possible  parameters  to  the  subprogram. 

We  shall  come  back  to  this  later.  In  the  declarative  part,  variables, 
constants  and  other  parameters  can  be  declared.  The  part  of  the  program 
between  the  'begin*  and  'end*  should  contain  a  sequence  of  one  or  more 
statements.  Each  statement  is  executed  once. 

subprogram_specif ication  is 

declarative  part 

begin 

statement  1 ; 
statement  2; 

statement  N; 
end  subprogram_name; 

Figure  17  Screen  for  Parts  of  a  Program 
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SIMPLE  STATEMENTS 


6-2 


There  are  several  kinds  of  statements,  some  are  simple  statements  and  some 
are  compound  statements.  The  most  common  simple  statements  are  assignment 
statements  and  procedure  calls;  we  have  already  seen  exait^les  of  these.  There 
is  also  a  very  simple  statement  called  a  null  statement .  When  this  statement 
is  executed,  nothing  happens  at  all. 

Here  is  an  example  showing  a  series  of  simple  statements.  The  sequence  reads 
in  two  real  numbers  and  calculates  their  mean. 

PUT_LINE ("Enter  two  real  numbers"); 

GET (XI) ; 

GET(X2) ; 

MEAN_VALUE  :=  (XI  +  X2)  /  2.0; 

PUT ("The  mean  is:  "); 

PUT (MEAN_VALUE) ; 

The  statement : 

MEAN_VALUE  :=  (XI  +  X2)  /  2.0; 

is  an  assignment  statement  and  the  others  are  procedure  calls. 


Figure  18  Screen  for  Simple  Statements 
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IF  STATEMENT 


6-3 


The  most  common  compound  statement  is  the  if  statement .  The  most  common 
way  of  achieving  selection  in  a  program,  that  is,  a  choice  between  two  or  more 
different  paths  in  a  program,  is  to  use  an  if  statement.  An  if  statement 
starts  with  the  reserved  word  'if  and  terminates  with  the  reserved  words  'end 
if.'  An  if  statement  is  comprised  of  a  'then'  part  followed  by  a  number 
(possibly  zero)  of  'elsif  parts,  ending  possibly  with  an  'else'  part. 

When  the  statement  is  executed,  the  boolean  expression  that  follow  the 
words  'if  and  'elsif  are  evaluated  in  order  from  the  top  down.  If  any  of 
these  boolean  expressions  are  true,  the  sequence  of  statements  in  the 
corresponding  part  of  the  if  statement  is  executed,  and  then  control  passes  to 
the  first  statement  after  the  words  'end  if . '  If  all  of  the  boolean 
expressions  are  false,  but  there  is  an  'else'  part,  then  that  sequence  of 
statements  will  be  executed.  If  there  is  no  'else'  part,  then  the  if 
statement  terminates  without  any  sequence  of  statements  being  executed. 


if  K  >  5  or  J  <  4  then 
K  :=  K  +  J; 

J  :=  J  +  1; 

else 

K  :=  J  -  K; 

K  :=  K  +  1; 

end  if; 


if  TEMPERATURE  <50.0  then 
PUT_LINE ( "Emergency ! " ) ; 
RAD_SET  :=  RAD_SET  +  15.0; 
elsif  TEMPERATURE  <  65.0  then 
PUT_LINE ("Too  Cold"); 
RAD_SET  :=  RAD_SET  +  5.0; 
elsif  TEMPERATURE  <70.0  then 
PUT  LINE ("OK"); 


Figure  19  Screen  for  If  Statement 


46 


CASE  STATEMENT  6-4 

We  have  seen  how  the  if  statement  can  be  used  to  make  a  selection.  A  case 
statement  can  be  used  if  a  choice  has  to  be  made  between  several  different 
alternatives.  A  case  statement  starts  with  the  reserved  word  'case'  and  ends 
with  the  reserved  words  'end  case.'  After  the  word  'case',  there  is  a 
discrete  expression  whose  value  determines  the  choice  of  one  of  the  several 
alternatives.  A  discrete  expression  is  an  expression  whose  value  is  of  a 
discrete  type,  that  is,  the  expression  is  either  an  integer  type  or  some 
enumeration  type.  A  list  of  alternatives  following  the  word  'when'  is  a  list 
of  the  possible  values  that  the  discrete  expression  can  assume. 

type  ONE_TO_FOUR  is  range  1 . . 4 ; 

NUMBER  : ONE_TO_FOUR ; 

case  NUMBER 
when  1  => 

PUT ("ONE") ; 
when  2  => 

PUT ("TWO") ; 
when  3  => 

PUT ("THREE") ; 
when  4  => 

PUT ("FOUR") ; 

end  case; 


Figure  20  Screen  for  Case  Statement 
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ALTERNATIVES 


6-5 


If  any  possible  values  are  omitted  from  the  list  of  alternatives,  there 
must  be  a  special  'others'  alternative.  The  'others'  alternative  must  come 
last  in  the  case  statement,  so  that  when  the  case  statement  is  executed,  the 
'others'  alternative  is  reached  only  if  the  selector  has  a  value  other  than 
those  already  enumerated  in  the  earlier  alternatives.  The  different 
alternatives  in  a  list  of  alternatives  can  be  enumerated  with  a  vertical  line 
or  the  interval  containing  them  may  be  stated. 

type  MONTH_NUMBER  is  range  1..12; 

MONTH  : MONTH_NUMBER ; 

case  MONTH  is 

when  1 .  .  2  1 12  => 

PUT ("WINTER")  ; 
when  3  I  4  I  5  => 

PUT ("SPRING")  ; 
when  6 . . 8  => 

PUT ("SUMMER")  ; 
when  9 .  . 11  => 

PUT ("AUTUMN") ; 
when  others  => 

PUT ("Error  in  month  number"); 

end  case; 


Figure  21  Screen  for  Alternatives 
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LOOP  STATEMENT 


6-6 


To  perform  iteration  in  Ada,  that  is,  to  execute  one  or  several  statements 

a  number  of  times,  a  loop  statement  is  used.  There  are  three  variations: 

(1)  a  simple  loop  statement  for  writing  part  of  a  program  that  is  to  be 
executed  an  infinite  number  of  times 

(2)  a  loop  statement  with  'while',  for  writing  part  of  a  program  that  is  to  be 
executed  a  fixed  number  of  times 

(3)  a  loop  statement  with  'for',  for  writing  part  of  a  program  that  is  to  be 
executed  until  a  certain  condition  is  met 


loop 

PUT_LINE("HELP!  I  can't  stop") ; 
end  loop; 

for  INDEX  in  1..10  loop 
PUT (INDEX) ; 
end  loop; 

for  NUMBER  in  reverse  1 . . 5  loop 
PUT (NUMBER) ; 
end  loop; 


while  X  >  1 . 0  loop 

PUT (X,F0RE=>6, AFT=>2,EXP=>0) ; 

X  :=  X  /  2.0; 
end  loop; 

while  abs (NEXT_TERM)  >=  EPSILON  loop 
SUM  :=  SUM  +  NEXT_TERM; 

K  =  K  +  1; 

SIGN  :=  -SIGN; 

NEXT_TERM  :=  SIGN  /  FLOAT (K  *  K) ; 
end  loop; 


Figure  22  Screen  for  Loop  Statement 
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EXIT  STATEMENT  6-7 

There  is  a  special  exit  statement  that  can  be  used  in  conjunction  with  the 
loop  statement.  There  are  two  variants,  the  first  of  which  is  simply: 

exit; 

This  statement  must  lie  within  a  loop  statement.  When  it  is  executed,  the 
iteration  is  terminated  and  control  passes  out  of  the  loop  statement  to  the 
first  statement  after  'end  loop.' 

The  second  variant  of  the  exit  statement  is  conditional.  If  the  boolean 
expression  is  true,  then  a  jump  out  of  the  loop  statement  takes  place,  just  as 
in  the  simple  exit  described  above.  If  the  boolean  statement  is  not  true, 
execution  continues  with  the  next  statement  within  the  loop;  no  jump  takes 
place . 


loop 

if  X  >  10  then 
exit ; 
else 

X  :=  X  +  2; 
end  if; 
end  loop; 


loop 

PUT ("Enter  data") 
GET(X) ; 

exit  when  X  <  0.0 
SUM  :=  SUM  +  X; 
PUT(SUM,WIDTH=>3) 
end  loop; 


Figure  23  Screen  for  Exit  Statement 
B.  SCENARIO  ONE 

The  first  problem  will  be  the  same  for  all  students.  The  format  will  always 
be  interrogatory.  If  the  student  correctly  solves  that  problem,  the  second 
problem  will  also  be  interrogatory  and  if  that  one  is  also  answered  correctly,  the 
student  will  move  on  the  next  topic.  This  process  is  illustrated  in  Figures  24  and 
25.  Note  that  those  lines  beginning  with  an  @  sign  or  a  number  are  commands 
or  program  statements  entered  by  the  student  to  the  editor. 
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1  Assume  the  following 

definitions  have  been  made:  I 

X,  Y,  Z 

:  INTEGER; 

1  Create  a  conditional 

statement 

that  will  assign  the  value  of  Z  to  Y 

if 

X  <  Y,  otherwise 

assign  the 

value  of  Z  to  X. 

0 

a  1 

1 

if  X  <  Y  then 

2 

Z  Y; 

3 

else 

4 

Z  X; 

5 

end  if; 

6 

0 

c 

1 

if  X  <  Y  then 

2 

Z  :=  Y; 

3 

else 

4 

Z  :=  X; 

5 

end  if; 

« 

good***>> 

Figure  24  Good  Student:  Solved  the  First  Problem 


1  Assume  the  following  definition  has  been  made: 

X  :  INTEGER  :=  0; 

Create  a  loop  statement  that  will  increment  the 

value  of  X  by  one  during  each 

pass  thru  the  loop  and  exit  when  the  value  of  X 

is  equal  to  1000. 

0 

a  1 

1 

loop 

2 

X  X  +  1; 

3 

exit  when  X  =  1000; 

4 

end  loop 

5 

• 

0 

c 

1 

loop 

2 

X  ;=•  X  +  1; 

3 

exit  when  X  =  1000; 

4 

end  loop 

« 

•**  good***>> 

Figure  25  Good  Student:  Solved  the  Second  Problem 
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C.  SCENARIO  TWO 

The  first  problem  that  this  student  sees  is  the  same  as  that  for  the  good 
student.  However,  because  this  representative  student  does  not  answer  the 
problem  correctly,  the  second  problem  will  be  presented  in  an  expository 
format.  Both  the  problem  and  the  solution  will  be  presented.  The  student  is  not 
expected  to  answer  any  questions  at  this  time.  He  must  study  the  example  to 
learn  how  to  properly  solve  it.  After  the  student  has  assimilated  this  new 
information,  he  will  move  on  to  another  interrogatory  problem.  When  he 
successfully  completes  this  problem  and  the  next  one,  he  will  be  able  to  move  on 
to  the  next  topic.  This  process  is  illustrated  in  Figures  26  through  29. 


1  Assume  the  following 

definitions  have  been  made: 

X,  Y,  2 

:  INTEGER; 

1  Create  a  conditional 

statement 

that  will  assign  the  value  of  Z  to  Y 

if 

X  <  Y,  otherwise  assign  the 

value  of  2  to  X. 

e 

a  1 

1 

if  X  <  Y  then 

2 

Z  :=  Y; 

3 

else 

4 

2  ;=  X; 

5 

end  If; 

6 

, 

0 

c 

1 

if  X  <  Y  then 

2 

2  ;•=  Y; 

3 

else 

4 

2  :=  X; 

5 

end  if; 

« 

•**  good*»*>> 

Figure  26  Student  Solved  the  First  Problem 
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Assume  the  following  definition  has  been  made: 

X  :  INTEGER  :=  0; 

Create  a  loop  statement  that  will  increment  the  value  of  X  by  one  during  each 
pass  thru  the  loop  and  exit  when  the  value  of  X  is  equal  to  1000. 

e  a  1 

1  loop 

2  exit  when  X  ■=  1000; 

3  end  loop; 

4  . 

@  c 

1  loop 

2  exit  when  X  =  1000; 

3  end  loop; 

<<  ***  missing  assignment  statement  *•*» 

X  :=  X  +  1; 


Figure  27  Student  Missed  the  Second  Problem 


Assume  the  following  definitions  have  been  made: 

Y  :  INTEGER; 

procedure  NEGATIVE_ACTION  is  ... 

:>rocedure  NON_NEGATIVE_ACTION  is  .  .  . 

procedure  ERROR  is  .  .  . 

Create  a  case  statement  that  will  call  the  procedure 

NEGATIVE_ACTION  when  Y  is  -1 

and 

the  procedure  NON_NEGATIVE_ACTION  when  Y  is  0  or  1, 

and  the  procedure  ERROR  if  Y 

has 

any  other  value. 

0 

a  1 

1 

case  Y  is 

2 

when  -1  •=> 

3 

NEGATIVE_ACTION; 

4 

when  0  1  1  => 

5 

NON_NEGATIVE_ACTION; 

6 

when  others  => 

7 

ERROR; 

8 

end  case; 

9 

• 

0 

c 

1 

case  Y  is 

2 

when  -1  “> 

3 

NEGATIVE_ACTION; 

4 

when  0  1  1  => 

5 

NON_NEGAT IVE_ACTION ; 

6 

when  others  "> 

7 

ERROR; 
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8  end  CAS* ; 

«  good  •••» 


I  I 

Figure  28  Student  Shown  the  Third  Problem  and  Solution 


1  Assum  chtt  following  dofiniciona  tiavo  boon  aodo: 

X,y  :  IMTECER; 

Cr< 

lACo  A  siuiciplo-brAneh  if  scacomrc  chAC  will  Assign  cho  vaIuo  of  -1  co 

Y  if  X 

is  loss 

ChAn  0  And  Assign  cho  vaIuo  of  0  co  Y  if  X  is  ogual  co  0  or,  ochorwiso. 

oaaign 

cho  vaIuo  of  1  CO  Y. 

•  A  1 

i 

if  X  <  0  chon 

2 

Y  -1; 

3 

olsif  X  •  0  Chon 

4 

Y  0; 

5 

olso 

8 

Y  1 

7 

ond  if; 

a 

• 

a  c 

1 

if  X  <  0  chon 

2 

Y  -1; 

3 

olsif  X  •  0  Chon 

4 

Y  0; 

S 

olso 

6 

Y  1 

7 

ond  if; 

« 

*•*  good  •••>> 

Figure  29  Student  solved  the  Fourth  Problem 
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VI.  CONCLUSION 


A.  ACCOMPLISHMENTS 

1.  A  Practical,  Fully  Functional  Ada  Tutor 

Ada  has  been  designated  by  the  Department  of  Defence  as  the  mandated 
language  for  all  new  DoD  software  development.  However,  there  has  been  great 
resistance  from  various  sources.  One  of  the  major  reasons  is  that  Ada  is  a  very 
sophisticated  language  and  many  programmers  simply  do  not  want  or  cannot 
afford  to  shift  to  Ada  due  to  the  high  cost  associated  with  learning  the  language. 
ITS  Ada  has  been  designed  to  alleviate  this  problem  by  offering  a  computer 
based  tutor  equipped  with  the  many  positive  qualities  of  a  master  teacher.  Since 
the  implementation  of  the  initial  version  has  been  completed,  ITS  Ada  is  now  a 
fully  functional  tutor  that  teaches  complete  Ada  as  defined  in  the  official 
reference  manual  (DoD,  1983). 

rrS  Ada  may  be  incorporated  into  the  computer  science  curriculum  at 
the  Naval  Postgraduate  School  next  year.  All  students  graduating  from  the 
school  are  required  to  demonstrate  a  practical  knowledge  of  Ada.  However, 
there  are  numerous  students  who  matriculate  with  significant  experience  in  a 
similar  computer  language.  It  is  far  more  efficient  for  these  students  to  spend  a 
few  hours  with  an  electronic  teacher  than  to  spend  many  more  hours  with  a 
human  teacher.  Their  performance  can  be  monitored  by  an  instructor  either  by 
administering  a  conventional  final  exam  or  by  tapping  into  the  user  file  which 
contains  all  the  student  profiles.  Either  way,  the  student  will  benefit  because  the 
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extra  time  available  can  be  used  to  pursue  other  areas  of  academic  interest.  We 
also  plan  to  make  the  system  available  for  public  use. 

2.  An  Intelligent  Tutoring  System 

ITS  Ada  contains  all  major  components  of  a  typical  ITS  and  meets  all 
three  criteria  used  by  Bums  and  Capps  (Bums  and  Capps,  1988,  p.  1)  to  evaluate 
whether  a  tutoring  system  is  intelligent  or  not:  (1)  knowing  the  domain  well 
enough  to  draw  inferences,  (2)  able  to  deduce  a  learner’s  approximation  of  that 
knowledge,  and  (3)  having  strategies  to  reduce  the  difference  between  expert  and 
student  performance. 

Since  the  expert  module  contains  the  full  lexical  definition  of  Ada,  the 
system  “knows”  the  domain  well  enough  to  draw  inferences.  For  example,  if  the 
key  word  “case”  is  presented  to  the  expert  module  during  parsing,  an  inference  is 
made  that  a  case  statement  is  to  follow.  The  mles  embedded  in  the  expert 
module  then  determine  which  additional  tokens  can  be  expected  to  complete  a 
legal  parsing  of  a  case  statement.  Similarly,  because  the  student  module 
maintains  a  current  profile  of  the  student’s  progress,  the  system  knows  the 
student's  level  of  knowledge  in  each  of  the  topics  monitored  and,  therefore,  of 
the  entire  domain.  Finally,  based  on  the  diagnostic  module's  interpreted 
differences,  or  lack  thereof,  between  the  student  and  expert  solutions,  the 
instmcdonal  module  will  either  give  another  problem,  show  an  example,  or  give 
remedial  instruction  on  a  related  topic.  The  strategy  employed  will  be  selected 
to  further  reduce  the  differences  between  the  student  and  the  expert,  depending 
on  the  student's  understanding  of  the  current  topic. 
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3.  Implementation  in  Ada 

We  implemented  the  entire  ITS  Ada  in  Ada,  including  the  AI 
components  which  traditionally  have  been  modelled  using  Lisp  or  Prolog,  to 
meet  the  DoD  mandate  and  to  make  the  system  available  to  as  many  systems  as 
possible.  According  to  the  requirements  for  Ada,  all  validated  compilers  must 
be  able  to  implement  a  clearly  defined  set  constructs.  If  our  system  is 
implemented  using  only  those  defined  constructs,  the  final  product  will  be 
portable  among  all  machines  with  valid  Ada  compilers.  In  addition  to  adhering 
to  the  ideals  of  conformance  to  the  Ada  standards,  we  remained  within  the 
guidelines  of  using  packages  whenever  possible.  In  fact,  the  system  is  built  from 
four  independent  packages.  We  have  tested  ITS  Ada  on  three  platforms,  PC, 
Macintosh,  and  SunSparcstation,  and  demonstrated  its  portability. 

B.  FUTURE  WORK 

1.  Extended  Instructional  Materials 

ITS  Ada  uses  text  descriptions  and  exercise  problems  to  ensure  that  the 
user  will  be  able  to  develop  a  working  understanding  of  Ada,  A  future  version 
may  include  a  greater  diversity  of  instructional  materials  and  exercise  problems, 
interspersed  at  more  frequent  intervals  so  that  the  user  may  gain  insights  into  the 
strengths  and  limitations  of  Ada.  Since  currently  individuals  are  tested  only 
when  one  entire  topic  has  been  presented,  a  large  amount  of  material  is  expected 
to  be  tested  with  only  a  few  problems.  ITS  Ada  has  been  designed  adhering  to 
the  modularity  principle.  It  is  easy  to  incorporate  more  instructional  screens, 
written  for  more  experienced  users,  into  the  system  to  make  it  appealing  to 
novice  programmers. 


57 


At  present,  structured  programming  and  software  engineering  principles 
are  not  dealt  with  in  ITS  Ada.  However,  it  is  desirable  to  include  them  in  a 
future  version  so  that  ITS  Ada  is  capable  of  teaching  problem  solving  and 
program  design  in  Ada. 

The  structure  of  ITS  Ada  can  also  serve  as  a  model  for  creating  another 
ITS  to  teach  a  different  programming  language.  Although  different  instructional 
screens,  problems  and  solutions,  and  different  lexical  grammar  specifications  for 
the  parser  are  required,  the  basic  control  and  reasoning  mechanism  of  ITS  Ada 
can  be  adopted.  The  new  development  will,  therefore,  requires  considerably  less 
effort  than  developing  a  brand  new  ITS  from  scratch. 

2.  Authoring  Module 

An  authoring  module  can  be  incorporated  into  ITS  Ada's  basic  design  to 
allow  for  more  flexibility  in  the  development  of  problem  definition  and 
assignment.  The  authoring  module  should  ask  the  domain  expert  what  problems 
to  add,  where  to  add  them,  and  what  is  his  solution  to  that  problem.  In  order  to 
incorporate  problems  that  are  more  applicable  to  the  student  body,  we  need  to 
change  the  problem  data  file,  the  array  in  the  driver  program,  and  the  required 
initialization  states.  No  change  to  the  parser  is  necessary. 

3.  Timing  Constraints  When  Solving  Problems 

There  is  a  clear  correlation  between  the  time  needed  to  answer  a 
problem  and  the  level  of  knowledge  that  a  student  has  in  that  area.  Clearly,  an 
intelligent  tutor  should  be  able  to  judge  whether  a  student  is  spending  too  much 
time  on  certain  problems.  Tasking  is  a  feature  of  Ada  that  provides  a  timing 
mechanism  in  the  program.  It  has  not  been  employed  by  ITS  Ada.  However,  it 
is  essential  that  a  future  version  of  ITS  Ada  has  the  capability  to  monitor  the 
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response  time  for  a  student  to  solve  assigned  problems  and  evaluate  them  in  a 
timely  manner. 

4.  Enhanced  Instructional  Interface 

For  portability  reasons,  ITS  Ada  provides  only  basic  user  interface 
support.  When  a  standard  windows  environment,  such  as  the  X  Windows, 
becomes  available  for  more  machines,  it  can  become  a  front-end  for  ITS  Ada 
and  be  incorporated  into  the  tutor.  This  would  enable  us  to  maintain  the  high 
portability  goal  for  ITS  Ada  and  offer  a  more  sophisticated  and  aesthetically 
appealing  interface  for  the  students.  Until  that  happens,  we  feel  that  the 
portability  of  ITS  Ada  is  a  more  important  issue  than  the  enhanced  interface. 
The  current  interface  is  adequate  and  highly  intuitive,  even  the  most 
inexperienced  computer  programmer  can  use  our  system  without  getting 
frustrated. 
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WHAT  IS  YOUR  NAME  /  USER  ID: 


Screen  1 
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SCREEN  MANIPULATION 


When  the  student  is  in  the  instructional  sequence,  the  commands  available  are 

(N)ext  screen  —  next  screen  or  homework  problem 

(P) revious  screen  —  ignores  homework  problems 

(M)  enu  —  main  menu 

(Q) uit  —  quits  the  tutoring  system 

While  the  system  is  in  the  user  specific  instructional  sequence,  the 
secjuence  of  instructional  screens  will  be  determined  by  the  user's  performance 
on  the  homework  problems  that  have  been  assigned.  However,  when  the  system  is 
in  the  quick  reference  mode,  the  sequence  of  instructional  screens  is 
determined  by  a  topic  network  and  no  homework  problems  will  be  assigned.  Each 
topic  presented  may  be  based,  at  least  in  part,  on  material  from  from  previous 
chapters . 


Screen  2 


68 


EDITOR 


When  the  student  is  asked  to  solve  a  programming  problem,  he  will  be 
transferred  to  the  editor.  Although  the  editor  is  primitive,  it  provides  all 
the  capabilities  necessary  to  successfully  complete  the  homework  assignments. 


(A) dd  line 
(S) ave 
(Q)uit 

(C) heck 

(D) elete  line  #/range 
(P)roblem  statement 
(L) ist 

(L)  ist  line  #/range 

(M)  odif y  line  #/range 


A  8  —  add  lines  after  line  8 

—  saves  as  the  solution  for  the  problem 

—  quits  the  editor 

—  saves  and  checks  the  response 

D  8  —  removes  line  8  from  sequence  and  renumbers 

—  restates  the  initial  problem 

—  lists  all  the  lines  in  the  file 

L  8-12  —  lists  lines  8  through  12,  inclusive 

M  8  —  prints  out  line  8  and  enables  insertions/ 

deletions 


8  The  brown  fox  jumped  over  the  lazy  dog. 
(I)nsert  I  quick 

8  The  quick  brown  fox  jumped  over  the  lazy  dog. 
(D)elete  DDDDD 

8  The  quick  brown  fox  jumped  over  the  dog. 


MENU 
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ic 

k**************************************** 
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User  Specific  Instructional  Sequence  * 
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1 

Basics  of  Ada 

2 

Types 

3 

Expressions 

4 

Arrays  and  Strings 

5 

Input  and  Output 

€ 

Control  Statements 

7 

Subprograms 

8 

Records  and  Dynamic  Data  Structures 

9 

Exceptions 

10 

Files 

11 

Packages 

12 

Tasking 
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INTRODUCTION 


1-1 


Most  of  the  text  and  many  of  the  exairples  used  for  this  tutoring  system  are 
taken  from  an  excellent  introductory  textbook,  ADA  FROM  THE  BEGINNING,  written 
by  Jan  Skansholm.  I  would  recommend  using  this  book  as  a  supplement  to  the 
information  presented.  Although  this  course  is  not  intended  for  the  novice 
programmer,  he  may  find  it  a  useful  companion  to  an  introductory  course  on  Ada 
programming.  Experienced  programmers  will  find  that  this  system  is  an 
excellent  way  to  learn  Ada  syntax. 

Ada  is  a  modern  language  with  a  wide  range  of  uses .  It  is  suitable  for 
both  technical  and  administrative  applications.  In  addition,  Ada  is  a 
standardized  language  with  strong  international  support.  For  most  other 
languages,  there  are  different  versions  and  dialects  on  different  computers; 
there  is  only  one  version  of  Ada.  The  name  Ada  is  protected  as  a  brand  name. 
Any  implementation  of  Ada  must  be  validated  before  it  can  use  the  name,  i.e. 
it  must  go  through  a  battery  of  tests  to  check  that  the  Ada  standard  is 
adhered  to.  The  precise  definition  of  Ada  can  be  found  in  a  special  reference 
manual.  However,  it  is  not  intended  as  a  textbook  and  is  therefore  rather 
hard  to  read,  even  for  an  experienced  programmer.  If  Ada  is  to  be  used  for 
advanced  programming,  the  manual  should  be  available,  but  the  beginner  and 
'ordinary'  programmer  can  manage  without  it. 
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CHARACTER  SET 


1-2 


The  only  characters  allowed  in  the  text  of  an  Ada  program  are  graphic 
characters  and  the  format  effectors.  The  characters  included  in  each  of  the 
categories  of  basic  characters  are  defined  as  follows : 

upper  case  letters  ABCDEFGHIJKLMNOPQRSTUVWXYZ 
lower  case  letters  abcdefghujklmnopqrstuvwxyz 
digits  0123456789 

special  characters  "#&'  ()*+/-./:;<=>_! 

!$%?0[\]'''  {)- 

the  space  character 

format  effectors  horizontal  tab,  vertical  tab,  carriage  return,  line 

feed,  and  form  feed 
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IDENTIFIERS 


1-3 


Identifiers  are  used  as  names  for  various  components  of  a  program  and  for 
reserved  words.  The  number  of  characters  permitted  in  an  identifier  are 
limitless  and  all  characters  are  significant.  The  first  character  must  be  a 
letter.  This  may  be  followed  by  any  combination  of  numbers,  letters  or 
singular  inbedded  underscores.  No  spaces  are  permitted  within  an  identifier 
since  a  space  is  a  separator.  Lower  case  letters  are  interpreted  in  the  same 
way  as  the  corresponding  upper  case  letter.  Therefore,  page_count  and 
Page_Count  would  be  identical . 

It  is  good  Ada  programming  style  to  make  identifiers  as  descriptive  as 
possible.  For  example,  an  array  of  temperatures  should  be  named 
"TEMPERATURES"  rather  than  "T" .  In  addition,  Ada  reserved  words  have  special 
meanings  and,  therefore,  they  may  not  be  used  as  names  in  a  program.  These 
reserved  words  will  be  covered  in  a  later  section. 

legal : ID_NUMBER 
PAGE_COUNT 
NUMBER_OF_I TEMS 
COLOR 
ZIP_CODE 
MILES_PER_HOUR 
ANNUAL_PERCENTAGE_RATE 
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illegal : ID-NUMBER 
_POST 

MILES /HOUR 
IX 

DAY_OF_WEEK 
PAGE  NUMBER 


(minus  sign) 

(first  character  _) 
(/  symbol) 

(number  first) 
(ending  underscore) 
(2  words) 
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DELIMITERS 


1-4 


Delimiters  act  to  separate  syntactic  elements  (such  as  operators  and 
variable  names)  in  the  same  way  spaces  and  carriage  returns  do.  They  are  used 
individually: 


or  as  two-character  conpound  delimiters.  Compound  delimiters  must  stay  welded 
together,  with  no  spaces  between  the  components .  The  following  names  are  used 
when  referring  to  Ada's  compound  delimiters: 


=> 

arrow 

>= 

greater  than  or  equal 

double  dot 

<= 

less  than  or  equal 

** 

double  star 

« 

left  label  bracket 

:  = 

assignment 

» 

right  label  bracket 

/= 

inequality 

<> 

box 

— 

double  hyphen 
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NUMERIC  LITERALS 


1-5 


There  are  two  classes  of  numeric  literals:  real  literals  and  integer 
literals.  A  real  literal  includes  a  decimal  point,  while  and  integer  literal 
does  not.  The  underline  character  may  be  used  as  a  delimiter  in  either  case. 

A  numeric  literal  may  be  expressed  in  the  conventional  decimal  notation 
(base  ten)  or  in  a  form  that  specifies  the  base  explicitly.  The  base  must  be 
between  2  and  16.  The  form  of  a  based  literal  is  base  #  number  #  exponent. 

decimal  notation 

12  0  1E6  123_456  —  integer  literals 

12.0  0.0  0.456  3.14159  —  real  literals 

1.34E-12  l.OE+6  —  real  literals  with  exponent 


based  notation 

2#1111_111# 
16#F.FF#E+2 
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16#FF#  016#0FF# 

2#1.1111  1111  lllEll 


—  integer  literals  of  value  255 

—  real  literals  of  value  4095.0 
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STRING  LITERALS 


1-6 


A  character  literal  is  one  character  enclosed  by  single  quotes  and  a  string 
literal  is  formed  by  a  sequence  of  graphic  characters  (possibly  none)  enclosed 
in  quotation  marks. 

'A'  —  character  literal 

"Characters  such  as  $,  %,  and  )  are  allowed  in  string  literals" 

The  length  of  a  string  literal  is  the  number  of  character  values  in  the 
sequence  represented.  (Each  double  quotation  is  counted  as  a  single 
character) 

""  —  empty  string  literal 

•I  iiiiMM  —  three  string  literals  of  length  1 

The  quotation  marks  are  not  included  in  the  text  string,  they  only  act  as 
delimiters.  If  a  quotation  mark  must  be  part  of  the  string,  it  has  to  be 
written  twice. 

"He  said  ""hello""  as  he  walked  into  the  room." 

A  text  string  literal  must  appear  on  a  single  line  in  a  program.  If  it  is 
too  long  for  one  line,  the  the  catenation  operator  can  be  used. 

"This  is  a  text  string  literal  that  is  too  long  to  fit  on  one"  & 

"line,  so  we  will  write  it  on  two  lines  and  use  a  special  character." 
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COMMENTS 


1-7 


Comments  are  used  to  make  the  flow  of  a  program  clearer  and  to  provide 
support  in  writing  a  program.  In  fact,  it  is  helpful  to  create  a  sketch  of 
the  program  using  comments  and  then  write  the  code  "between  the  lines." 

A  comment  starts  with  the  compound  symbol  —  (double  hyphen)  and  extends  to 
the  end  of  the  line.  A  comment  can  appear  at  any  line  of  a  program.  Their 
presence  or  absence  has  an  influence  on  whether  a  program  is  legal  or  illegal, 
however,  their  presence  does  make  interpretation  easier  to  the  human  reader. 
The  reader  must  be  aware  that  the  content  of  the  comment  is  not  necessarily 
reflected  in  the  code,  i.e.  the  comments  may  say  one  thing  and  the  code  does 
something  else . 

X  :=  X  +  Y;  —  A  comment  may  appear  here 

Y  :=  —  or  one  may  even 

Y  -  Z;  —  appear  here 

—  Nothing  is  stopping  you  from  filling  up  several 

—  lines  with  comments 
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RESERVED  WORDS 


1-8 


The  identifiers  listed  below  are  called  reserved  words  and  are  reserved  for 
special  significance  in  the  Ada  programming  language.  Most  Ada  programmers 
adhere  to  the  practice  of  typing  reserved  words  in  lower  case  letters  and  all 
other  text  in  uppercase  letters .  A  reserved  word  must  not  be  used  as  a 
declared  identifier. 


abort 

declare 

generic 

of 

select 

abs 

delay 

goto 

or 

separate 

accept 

delta 

others 

subtype 

access 

digits 

if 

out 

all 

do 

in 

task 

and 

is 

package 

terminate 

array 

else 

pragma 

then 

at 

elsif 

limited 

private 

type 

end 

loop 

procedure 

begin 

entry 

use 

body 

exception 

mod 

raise 

exit 

range 

when 

case 

new 

record 

while 

constant 

for 

not 

rem 

with 

function 

null 

renames 

return 

xor 

reverse 
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DATA  TYPES  2-1 

The  task  of  a  computer  program  is  to  manipulate  data  objects  of  various 
kinds.  A  data  object  in  a  program  often  represents  something  that  occurs  in 
the  real  world.  Different  objects  have  different  properties.  In  Ada,  we  say 
that  objects  that  have  different  properties  have  different  types.  Each  object 
that  is  used  in  a  program  must  be  declared  before  it  is  used  and  its  type 
stated  in  the  declaration. 

A  type  is  characterized  by: 

(1)  the  values  that  can  be  taken  by  objects  belonging  to  that  type;  and 

(2)  the  operations  that  can  be  performed  on  them. 

The  built-in  standard  types  are  INTEGER,  FLOAT,  CHARACTER,  STRING  and 
BOOLEAN.  Other  types  can  be  defined  by  the  programmer,  as  needed.  Ada  is  a 
language  that  keeps  careful  check  on  the  types  of  different  objects,  that  is, 
objects  of  a  certain  type  can  only  take  on  values  that  are  acceptable  for  that 
type. 
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INTEGER  TYPES  2-3 

Vfhen  an  INTEGER  type  is  declared,  the  least  and  greatest  possible  integer 
values  that  objects  of  that  type  can  take  are  stated.  The  least  possible  and 
greatest  possible  values  can  be  different  in  different  implementations  of  Ada. 

type  SAT_SCORE  is  range  0..1600; 

where  the  minimum  SAT_SCORE  possible  is  0  and  the  maximum  SAT_SCORE  is  1600. 

MAX_L1NE  : constant  :=  72; 

MAX_COL  : constant  :=  17; 

type  ELEMENT_LINE  is  range  l..MAX_LINE; 
type  ELEMENT_COL  is  range  l..MAX_COL; 

The  range  of  possible  values  can  also  be  determined  by  evaluating  an 
expression 

type  ELEMENT_NUMBER  is  range  1 . . (MAX_LINE  *  MAX_COL) ; 
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SUBTYPES  AND  DERIVED  TYPES 

2-4 

A  subtype  encompasses  a  limited  number  of  values  of  a  base  type.  Variables 
of  the  subtype  and  the  base  type  can  freely  be  assigned  back  and  forth. 

subtype 

SEVERAL  is  INTEGER  range  5.. 8; 

N 

M 

: INTEGER ; 

•.SEVERAL; 

N  :=  M; 

Ada  has  another  mechanism  for  creating  data  types  out  of  existing  data 
types.  Declarations  of  derived  types  look  like  other  type  declarations  except 
that  they  contain  the  keyword  'new.'  The  central  difference  between  subtypes 
and  derived  types  is  that  a  subtype  may  be  mixed  with  variables  of  the  base 
type,  whereas  a  derived  type  must  be  kept  separate  from  the  parent  type. 

type  NEW 

_INTEGER  is  new  INTEGER  range  1..100; 

P 

Q 

: INTEGER; 

;NEW_INTEGER; 

P  :=  Q; 

—  illegal 
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CHARACTER  TYPES 


2-5 


The  CHARACTER  type  is  used  for  handling  only  single  characters,  such  as 
letters,  digits,  special  symbols,  or  non-printing  control  characters.  Non¬ 
printing  control  characters  can  be  used  when  you  want  a  terminal  to  do  things, 
for  example,  begin  on  a  new  line,  clear  the  screen  or  make  a  bell  ring. 

In  Ada,  the  type  CHARACTER  is  defined  so  that  it  conforms  to  the  ASCII 
standard.  This  means  that  a  variable  of  type  CHARACTER  can  contain  any  of  the 
128  characters  in  the  ASCII  standard.  Each  of  the  95  graphic  characters  of 
this  character  set  is  denoted  by  the  corresponding  character  literal. 

For  example:  type  ROMAN_DIGIT  is  ('I',  'V,  ’X’,  'L',  'C,  'D',  'M'); 

type  HEXADECIMAL  is  ('0',*1','2',*3’,'4*,’5’,'6’,'7',’8','9',’A',’B','C', 

•D',  'E'.'F'); 

The  type  CHARACTER  is  an  enumeration  type.  In  an  enumeration  type,  there 
is  a  relative  ordering  defined  between  the  different  values.  The  order  is 
decided  by  how  the  values  are  listed  in  the  definition;  of  two  values,  the  one 
listed  first  is  considered  the  lesser.  In  our  definition  of  ROMAN_DIGITS,  'X' 
is  less  than  'C,  which  is  contrary  to  normal  alphabetical  order. 
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BOOLEAN  TYPES  2-6 

The  BOOLEAN  type  is  actually  an  enumeration  type,  like  the  type  CHARACTER. 
However,  it  is  defined  with  only  two  possible  values,  FALSE  and  TRUE.  Note 
that  FALSE  <  TRUE,  but  this  is  not  normally  significant. 

BOOLEAN  types  are  useful  as  flags;  it  is  good  programming  style  to  give 
them  identifiers  which  describe  conditions,  for  example: 

LIGHT_ON  : BOOLEAN ; 

The  boolean  variable  LIGHT_ON  can  have  the  value  'on'  (true)  or  'off 
(false)  with  different  ambient  conditions  depending  on  the  value.  Therefore, 
it  can  be  used  in  a  clearly  described  test  for  a  conditional  branch. 

LIGHT  ON  : BOOLEAN; 


LIGHT  ON  :=  TRUE; 


if  LIGHT_ON  then 

CHECK_WATER_LEVEL ; 
end  if; 
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REAL  TYPES 


2-8 


Real  types  are  the  non-discrete  scalar  types  that  are  used  to  represent 
numbers.  In  Ada,  there  are  two  categories  of  real  types,  namely  floating 
point  and  fixed  point  types.  The  difference  between  these  two  types  has  to  do 
with  the  nature  of  real  numbers  and  how  they  are  represented  in  computer 
systems . 

A  floating  point  number  can  represent  a  very  large  value  or  a  very  small 
number.  When  we  create  a  floating  point  type,  we  can  specify  the  number  of 
decimal  digits  of  precision  the  compiler  needs  to  keep  track  of  and  the  range 
of  acceptable  values.  FLOAT  is  the  floating  point  type  available  in  all 
implementations  of  Ada.  Other  derived  types  can  also  be  defined. 

type  PRECISE_MEASUREMENT  is  digits  15; 

type  PERCENTAGE  is  digits  4  range  0.0  ..  100.0; 

A  fixed  point  looks  alot  like  the  floating  point  type,  however,  instead  of 
using  the  keyword  'digits,'  the  fixed  point  type  uses  the  keyword  'delta.' 

This  is  called  an  accuracy  constraint  and  tells  how  many  digits  will  be  used 
to  represent  each  number.  Any  number  of  either  real  type  must  have  a  decimal. 

type  DOLLAR  is  delta  0.01  range  0.00  ..  10000.00; 

type  FINED_TUNED  is  delta  0.000025; 

type  THOUSANDTHS  is  delta  0.001; 
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OBJECT  DECLARATION  3-1 

An  object  declaration  declares  an  object  whose  type  is  given.  The  declared 
object  is  a  constant  if  the  reserved  word  'constant'  appears  in  the  object 
declaration;  the  declaration  must  then  include  an  explicit  initialization^ 

HIGH_LIMIT  : constant  INTEGER  :=  10000; 

LOW_LIMIT  : constant  INTEGER  :=  0; 

An  object  that  is  not  a  constant  is  called  a  variable.  The  only  ways  to 
change  the  value  of  a  variable  are  either  directly  by  an  assignment,  or 
indirectly  when  the  variable  is  updated  by  a  procedure  call.  ^ 

COUNT  : INTEGER; 

SIZE  tINTEGER  range  0  ..  1000  :=  0;  —  initial  value  is  0 

SORTED  rBOOLEAN  :=  FALSE;  —  initial  value  is  FALSE 


A  number  declaration  is  a  special  form  of  constant  declaration.  The  constant 
declared  by  a  number  declaration  is  called  a  named  number  and  has  the  type  of 
the  static  expression. 

PI  :constant  :=  3.14159;  —  a  real  number 
MAX  : constant  :=  500;  —  an  integer 
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ASSIGNMENTS 


3-2 


The  compound  symbol  :=  is  called  the  assignment  symbol  and  is  used  to 
denote  assignment.  Assignment  means  that  whatever  is  on  the  right  hand  side 
of  the  assignment  symbol  is  placed  in  the  variable  on  the  left  hand  side.  The 
variable  must  be  of  the  same  type  as  whatever  is  on  the  right  hand  side  of  the 
symbol.  Any  variables  that  may  appear  on  the  right  hand  side  are  not  affected 
by  the  assignment.  Their  values  remain  unchanged. 

Assignment  can  be  made  when  objects  are  declared: 

SALES_TAX  : constant  :=  0.065; 

NUMBER_OF_ITEMS  : INTEGER  range  0  ..  1000  :=  0; 

OPEN  : BOOLEAN  :=  TRUE; 

Or  assignments  can  be  made  explicitly  by  using  an  assignment  statement: 

K  :=  INDEX  +  15; 

XI  :=  23.5; 

ALARM  :=  TEMP  >  200.0; 

NAME  ;=  "JONES"; 


When  an  assignment  statement  is  read,  the  :=  symbol  should  be  interpreted  as 
"becomes"  or  "gets".  For  example,  K  "becomes"  the  value  INDEX  +  15. 
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ADDITIONAL  NUMERIC  OPERATORS  3-4 

In  addition  to  the  basic  operators  of  addition,  subtraction, 
multiplication,  and  division,  Ada  provides  the  remainder  (rem)  and  modulus 
(mod)  operators.  The  rem  operator  can  be  used  to  find  the  remainder  after 
division.  This  needs  two  integer  parameters  of  the  same  type.  The  expression 
12  rem  5,  for  example,  gives  the  result  2,  the  remainder  when  12  is  divided  by 
5.  By  definition,  A  rem  B  has  the  same  sign  as  A  and  an  absolute  value  less 
than  the  absolute  value  of  B.  The  operator  mod  works  in  almost  the  same  way. 

A  mod  B  has  the  same  sign  as  B  and  an  absolute  value  less  than  B. 


A 

B 

A  rem  B 

A  mod  B 

12 

5 

2 

2 

12 

-5 

2 

-3 

-12 

5 

-2 

3 

-12 

-5 

-2 

-2 

There  is  also  an  exponential  operator  denoted  by  **.  The  result  will  be  the 
same  type  as  the  first  operand.  The  second  operator  can  only  be  an  integer. 

N  **  5  is  identical  toN*N*N*N*N  and  X  **  (-4)  =  1/ (X  *  X  *  X  *  X) . 

The  final  numeric  operator  is  the  absolute  value  (abs) .  The  absolute  value  of 
a  positive  operand  is  itself  and  the  negated  operand  if  it  is  negative. 

abs(10.3)  =  10.3  abs(-50)  =  50 
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BOOLEAN  EXPRESSIONS 


3-5 


It  is  also  possible  to  build  an  expression  whose  value  has  type  BOOLEAN. 
Such  an  expression  is  called  a  boolean  expression.  Boolean  expressions  use 
either  relational  or  boolean  operators.  Relational  operators  can  be  used  to 
make  comparisons,  such  as  equality  or  inequality.  The  two  operands  of  a 
relational  operator  must  be  of  the  same  type. 


=  —  equal  to  <=  —  less  than  or  equal  to 

/=  —  not  equal  to  >  —  greater  than 

<  —  less  than  >=  —  greater  than  or  equal  to 

Both  the  operands  and  the  result  of  boolean  operators  are  of  the  type  BOOLEAN. 
These  operators  are  NOT,  AND,  OR,  XOR,  AND  THEN  and  OR  ELSE.  The  NOT  operator 
changes  a  TRUE  to  a  FALSE  and  vice  versa.  The  operators  AND  and  OR  have  their 
natural  logical  meanings.  The  operators  AND  THEN  and  OR  ELSE  are  exactly  the 
same  as  AND  and  OR,  respectively.  The  difference  is  that  the  left  operand  is 


evaluated 

first . 

The  right 

operand  is  then 

evaluated  only 

if  it  is 
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OPERATOR  PRECEDENCE 

3-6 

When 

complicated 

expressions  are  constructed. 

it 

is  important  to  know  the 

order  in  which  the  ( 

oonponent  expressions  will  be 

evaluated. 

*★ 

abs 

not 

* 

/ 

mod 

rem 

+ 

- 

/= 

< 

<=  >  >= 

and 

or 

xor 

and  then  or  else 

Operators  on 

the  same  line  have  the  same  precedence. 

The  top  line  of 

operators  has 

the  highest  precedence  and  the  bottom 

line  of  operators  has  the 

lowest 

precedence . 

5  ** 

6  >  5 

+  20  and  25  /  5  =  6  rem  4 

30 

>  5 

+20  and  25  /  5  =  6  rem  4 

30 

>  5 

+  20  and  5=2 

30 

> 

25  and  5=2 

TRUE 

and  FALSE 

FALSE 
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CONSTRAINED  ARRAYS 


4-1 


The  scalar  types  we  have  declared  so  far  have  been  simple  types  where  each 
object  of  that  type  assumes  only  a  single  value.  In  an  array  type,  however, 
an  object  consists  of  a  numbered  collection  of  similar  components.  It  can 
also  be  said  that  an  object  of  an  array  type  is  a  kind  of  table  in  which  each 
element  has  a  particular  number  associated  with  it. 

We  shall  start  by  looking  at  constrained  array  types.  When  a  constrained 
array  type  is  declared,  both  the  numbering  of  the  components  and  the  types  of 
the  individual  components  must  be  specified,  that  is  the  table  has  been  drawn 
and  we  know  the  format  of  the  values  to  be  entered  into  the  table . 

12345678  —  the  eight  hours  of  the  work  day 

63204946 

This  is  represented  by:  type  COUNTS  is  array(1..8)  of  INTEGER; 

Similarly,  if  we  wanted  to  keep  counts  for  a  whole  week,  we  could  build  a  2 
dimensional  array,  with  8  columns  (hour)  and  7  rows  (day  of  the  week) . 

type  DAY_OF_WEEK  is 

(MONDAY,  TUESDAY, WEDNESDAY, THURSDAY, FRIDAY, SATURDAY,  SUNDAY) ; 
type  HOUR_OF_DAY  is  range  0 . . 8 ; 

type  COUNT_ARRAY  IS  (DAY_OF_WEEK, HOUR_OF_DAY)  of  INTEGER; 
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STRINGS 


4-3 


When  the  components  of  one-dimensional  array  are  characters,  the  array  is 
called  a  STRING.  The  STRING  type  is  built  into  each  implementation  of  Ada. 
The  STRING  type  is  defined  as  follows: 

type  STRING  is  array (POSITIVE  range  <>)  of  character; 

A  text  string  variable  may  appear  as  follows: 

NAME  : STRING (1. .10)  :=  "JOHN  SMITH"; 

In  this  case,  the  object  NAME  will  hold  10  characters,  numbered  from  1  to  10. 
We  can  select  a  particular  element  of  the  STRING  using  indexing. 

NAME (7)  refers  to  the  seventh  character  of  the  string,  ie  "M". 

A  similar  construct  can  be  used  to  create  a  slice  (part  of  a  string) . 

NAME (2.. 4)  refers  to  the  second  to  forth  characters,  inclusive,  ie  "OHN" . 

The  string  can  be  changed  by  using  slicing. 

NAME(1..5)  :=  "MARK  ";  NAME  now  has  the  value  "MARK  SMITH". 
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CATENATION 


4-4 


It  is  possible  to  join  strings  together  in  sequence,  to  catenate  strings, 
using  the  operator  denoted  by  the  symbol  &.  It  is  possible  for  1  or  both 
strings  to  have  type  CHARACTER 


NAME  "Tom"  &  "my";  — 

NAME  "Ji"  &  NAME (3.. 5); 

NAME  :=NAME(1..4)  4  'i'/ 

Just  as  for  text  strings,  the  operator 

type  VECTOR  is  array (INTEGER  range 


VI 

:VECTOR(l. .2) ; 

V2 

:VECTOR(101. .103) ; 

V3 

•.VECTOR  (0.  .4)  ; 

V3 

:=  VI  4 

V2; 

V2 

:=  27.0 

4  VI; 

result  IS  "Tommy" 
result  is  "Jimmy" 
result  is  "Jimmi" 

4  can  be  used  for  catenating  arrays. 
<>)  of  FLOAT; 


Note  that  the  array  sizes  must  be  compatible,  ie  a  2  member  array  and  a  3 
member  array  can  catenate  and  be  copied  into  an  array  with  5  or  more  members. 


Screen  31 


92 


ARRAY  ASSIGNMENTS 


4-5 


Using  aggregates,  array  variables  can  be  initialized  when  they  are 
declared. 

type  MONTH_TYPE  is  (JAN, FEB, MAR, APR, MAY, JUN, JUL, AUG, SEP, OCT, NOV, DEC) ; 
type  NO_OF_DAYS  is  array (MONTH_TYPE)  of  INTEGER; 

DAYS_IN_MONTH  :NO_OF_DAYS  :=  (31,28,31,30,31,30,31,31,30,31,30,31); 

When  there  is  a  large  array  where  several  components  are  to  be  given  the  same 
value,  the  reserved  word  others  can  be  used. 

type  VECTOR  is  array(1..10)  of  FLOAT; 

VECTOR_A  : VECTOR  :=  (1 . 0, 2 . 0, 3 . 0, others  =>  0.0); 

VECTOR_B  : VECTOR  ;=  (others  =>  0.0); 

VECTOR_A  :=  (others  =>  0.0); 

NAME  (others  =>  '  '); 

When  assigning  values  to  an  array,  it  is  necessary  for  the  array  on  the  right 
hand  side  to  have  the  same  type  and  same  number  of  components  as  the  array  on 
the  left  hand  side. 

VECTOR  A  :=  VECTOR  B; 


Screen  32 


93 


PROGRAM  STRUCTURE 


5-1 


with  . . . ;  —  with  GEOMETRY; 

use  . . . ;  —  use  GEOMETRY; 

procedure  PROGRAM_NAME  is 
declarations 
begin 

series  of  statements 
end  PROGRAM_NAME ; 

Ada  allows  you  to  write  your  program  in  small  separate  sections  and  to  link 
these  sections  together  after  they  have  been  compiled.  If  one  section  needs 
access  to  another  section,  the  "with"  clause  is  used.  Items  declared  in  this 
other  section  can  be  accessed  using  selection  or  dot  notation.  For  example, 

FIELD_AREA  : GEOMETRY. AREA; 

refers  to  the  type  AREA  in  the  package  GEOMETRY.  However,  dot  notation  is  not 
necessary  if  the  use  clause  is  introduced. 
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TEXT  INPUT/OUTPUT 


5-2 


In  all  implementations  of  Ada,  we  have  access  to  the  resources  of  a 
standardized  package  called  TEXT_IO.  It  will  enable  us  to  read  and  write 
values  of  the  types  STRING  and  CHARACTER.  The  package  contains  several  tools, 
including  PUT,  which  will  allow  us  to  write  text  at  a  terminal.  We  can  do 
this  by  writing  TEXT_IO.PUT  in  the  program  or  by  "using"  TEXT_IO  and  writing 
just  PUT.  It  is  good  Ada  programming  style  to  use  dot  notation  for  everything 
except  TEXT_I0.  A  PUT_LINE  works  the  same  way  as  a  PUT,  but  a  new  line  is 
started  after  the  output . 

PUT (TEXT);  —  TEXT  can  be  either  a  character  or  a  string 

PUT_LINE ("This  is  the  line  to  be  printed"); 

In  order  to  read  characters  and  strings,  two  different  versions  of  GET  are 
used.  A  GET  with  an  object  of  type  CHARACTER  will  take  in  the  next  character 
to  be  read  in  and  associate  it  with  that  object.  Line  or  page  terminators 
will  be  skipped. 

GET (CHAR) ;  —  CHAR  is  type  CHARACTER 

Similarly,  a  GET  with  an  object  of  type  STRING  will  read  in  characters  one  by 
one  placing  them  into  the  array  starting  on  the  left.  Line  and  page 
terminators  will  be  skipped.  The  string  must  be  COMPLETELY  FILLED. 

GET (LAST_NAME) ;  —  a  10  character  string  will  require  10  characters 
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TEXT  FORMATING 


5-3 


To  read  a  whole  line  in  at  once,  or  to  get  a  string  without  having  to  pad 
it  with  spaces  at  the  terminal,  there  is  a  special  procedure  called  GET_LINE. 
GET_LINE  will  get  the  value  of  the  string  and  its  length.  Reading  normally 
ends  when  a  line  terminator  (carriage  return)  is  met  in  the  input  stream. 
Reading  can  also  end  if  the  object  is  not  as  long  as  the  string  that  is  read 
in.  If  that  object  to  which  nothing  has  been  read  will  be  undefined.  This  is 
why  it  may  be  a  good  idea  to  initialize  any  object  of  type  STRING  with  spaces. 

GET_IiINE  (NAME,NAME_LENGTH)  ; 

TEXT_IO  provides  a  way  of  positioning  both  input  and  output  by  using  NEW_LINE 
and  SKIP_LINE.  NEW_LINE  causes  a  line  terminator  to  be  output.  If  we  supply 
a  spacing  parameter,  we  can  get  multiple  line  terminators  output. 

NEW_LINE; 

NEW_LINE (5) ; 

For  positioning  input,  usually  to  skip  over  any  garbage  left  on  the  input  line 
by  the  user,  we  have  SKIP_LINE.  SKIP_LINE  scans  over  the  input  stream  until  a 
line  or  page  terminator  is  detected.  A  spacing  parameter  may  also  be  used. 

SKIP  LINE; 
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INTEGER  OUTPUT 


5-4 


The  versions  of  PUT  and  GET  or  writing  and  reading  characters  and  text  are 
always  present  in  TEXT_IO.  However,  this  is  not  the  case  for  numeric  and 
enumeration  types.  Since  it  is  possible  to  work  with  many  different  integer, 
float  and  enumeration  types,  it  is  not  possible  for  TEXT_IO  to  contain  a 
version  of  PUT  for  every  type  imaginable.  Instead,  it  has  templates  for  input 
and  output  of  integer  types,  floating  point  types  and  enumeration  types.  For 
example,  to  be  able  to  read  and  write  integers,  the  following  (or  similar) 
must  be  placed  among  the  declarations  in  a  program. 

package  INTEGER_INOUT  is  new  INTEGER_IO; 
use  INTEGER_INOUT; 

When  writing  integers  to  the  terminal,  the  number  of  characters  to  be  printed 
can  be  specified  or  assumed  to  be  the  default  value.  If  the  number  to  be 
printed  is  smaller  than  the  width  specified,  padding  takes  place  with  blanks 
to  the  left  of  the  number  and  if  the  number  to  be  printed  is  larger  than  the 
width  specified,  the  exact  number  of  position  required  are  allowed. 

NUMBER  : INTEGER  :=  54321; 

PUT  (NUMBER);  '^''^54321 

PUT (NUMBER, WIDTH=>5 ) ;  54321 

PUT (NUMBER, WIDTH=>1 ) ;  54321 
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To  read  in  integers,  a  special  input /output  package  must  be  created  using 
the  package  INTEGER_IO  in  TEXT_IO,  just  as  was  done  for  output . 

type  WHOLE_NUMBER  is  range  -1000.. 1000; 

package  WHOLE_NUMBER_INOUT  is  new  INTEGER_IO (WHOLE_NUMBER) ; 

use  WHOI,E_NUMBER_INOUT; 

GET (W) ; 

The  procedure  GET  expects  something  of  the  type  WHOLE_NUMBER .  In  the 
input,  this  is  given  as  a  series  of  characters,  for  example,  the  integer  475 
is  represented  by  the  three  characters  '4',  '7',  and  '5'.  Input  continues  for 
as  long  as  the  characters  read  can  be  interpreted  as  part  of  an  integer.  If 
the  integer  read  is  not  compatible  with  that  of  the  type  expected,  an  error 
will  result . 

The  WIDTH  parameter  can  be  used  if  data  are  to  read  that  have  been  written 
in  a  special  way,  with  a  particular  number  of  digits  in  the  input  stream. 

GET(W,WIDTH=>4) ; 

For  example,  -157890  written  at  keyboard  becomes  -157. 


Screen  37 


98 


FLOATING  POINT  OUTPUT  5-6 

For  floating  point  numbers,  as  for  integers,  an  individual  package  must  be 
created  for  input  and  output,  this  time  using  the  package  FLOAT_IO  in  TEXT_IO. 

package  FLOAT_INOUT  is  new  FLOAT_IO ( FLOAT ) ; 
use  FLOAT_INOUT; 

In  FLOAT_IO,  there  is  a  version  of  PUT.  Parameters  for  the  number  of  digit's 
before  the  decimal  place  (FORE) ,  the  niunber  of  digits  after  the  decimal  place 
(AFT)  and  the  number  of  digits  in  the  exponent  (EXP)  can  be  specified. 

P  -123.4; 

Q  0.00567; 


PUT(P)  ; 

PUT  (Q)  ; 

PUT(P,AFT=>2)  ; 
PUT(Q,F0RE=>5,AFT=>1)  ; 
PUT(P,EXP=>4)  ; 
PUT(Q,EXP=>0)  ; 


-1.2340000uE+02 
5.67000000E-03 
-1.23E+02 
5.  /E-03 

-1.23400000E+002 

0.00567000 
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FLOATING  POINT  INPUT  5-7 

To  read  values  into  variables  of  floating  point  types,  the  package  FLOAT_IO 
in  TEXT_IO  must  be  used  to  create  an  input/output  package  for  the  particular 
floating  point  type  in  question. 

type  TEMPERATURE  is  digits  4; 

package  TEMPERATURE_INOUT  is  new  FLOAT_IO (TEMPERATURE) ; 

T  : TEMPERATURE; 

GET(T) ; 

Input  works  in  the  same  way  as  for  integers,  except  the  format  rules  for 
input  of  a  real  number  differ  from  those  for  an  integer.  Data  can  be  input 
either  in  ordinary  form,  with  figures  before  and  after  the  decimal  point,  or 
in  exponent  form.  A  decimal  point  must  be  included  in  the  input  stream,  for 
either  form,  or  an  error  message  is  given. 

0.0 

5.67E-4 

-1.234001 

6E10 
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The  standard  type  BOOLEAN  is  an  enumeration  type  and  thus  values  of  type 
BOOLEAN  can  be  read  in  and  written  if  a  new  package  is  declared. 

package  BOOLEAN_INOUT  is  new  ENUMERATION_IO (BOOLEAN) ; 
use  BOOLEAN_INOUT; 

ACTIVE  ; BOOLEAN ; 

GET (ACTIVE) ; 

PUT (ACTIVE) ; 

In  the  first  example,  the  operator  must  type  one  of  the  words  TRUE  or  FALSE 
at  the  keyboard.  While  in  the  second  example,  either  TRUE  or  FALSE  is 
displayed  at  the  terminal. 

User  defined  enumeration  types  are  treated  in  a  similar  manner. 

type  COLORS  is  (RED, ORANGE, YELLOW, GREEN, BLUE, PURPLE) ; 
package  COLOR_lNOUT  is  new  ENUMERATION_IO (COLORS) ; 
use  COLOR  INOUT; 
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In  single  terms,  an  Ada  program  consists  of  a  specification  part,  a 
declarative  part  and  a  statement  part.  The  specification  of  a  program 
contains  its  name  and  a  description  of  possible  parameters  to  the  subprogram. 
We  shall  come  back  to  this  later.  In  the  declarative  part,  variables, 
constants  and  other  parameters  can  be  declared.  The  part  of  the  program 
between  the  'begin'  and  'end'  should  contain  a  sequence  of  one  or  more 
statements ,  Each  statement  is  executed  once . 

subprogram_specif ication  is 

declarative  part 

begin 

statement  1 ; 
statement  2; 


statement  N; 
end  subprogram_name; 
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SIMPLE  STATEMENTS  6-2 

There  are  several  kinds  of  statements,  some  are  simple  statements  and  some 
are  compound  statements.  The  most  common  simple  statements  are  assignment 
statements  and  procedure  calls;  we  have  already  seen  examples  of  these.  There 
is  also  a  very  sin¥>le  statement  called  a  null  statement.  When  this  statement 
is  executed,  nothing  happens  at  all. 

Here  is  an  example  showing  a  series  of  simple  statements.  The  sequence  reads 
in  two  real  numbers  and  calculates  their  mean. 

PUT_LINE ("Enter  two  real  numbers"); 

GET (XI) ; 

GET(X2) ; 

MEAN_VALUE  :=  (XI  +  X2)  /  2.0; 

PUT ("The  mean  is:  "); 

PUT(MEAN_VALUE) ; 

The  statement : 

MEAN_VALUE  ;=  (XI  +  X2)  /  2.0; 

is  an  assignment  statement  and  the  others  are  procedure  calls. 
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The  most  common  compound  statement  is  the  if  statement .  The  most  common 
way  of  achieving  selection  in  a  program,  that  is,  a  choice  between  two  or  more 
different  paths  in  a  program,  is  to  use  an  if  statement .  An  if  statement 
starts  with  the  reserved  word  'if*  and  terminates  with  the  reserved  words  'end 
if.'  An  if  statement  is  comprised  of  a  'then'  part  followed  by  a  number 
(possibly  zero)  of  'elsif  parts,  ending  possibly  with  an  'else'  part. 

When  the  statement  is  executed,  the  boolean  expression  that  follow  the 
words  'if  and  'elsif  are  evaluated  in  order  from  the  top  down.  If  any  of 
these  boolean  expressions  are  true,  the  sequence  of  statements  in  the 
corresponding  part  of  the  if  statement  is  executed,  and  then  control  passes  to 
the  first  statement  after  the  words  'end  if.'  If  all  of  the  boolean 
expressions  are  false,  but  there  is  an  'else'  part,  then  that  sequence  of 
statements  will  be  executed.  If  there  is  no  'else'  part,  then  the  if 
statement  terminates  without  any  sequence  of  statements  being  executed. 


if  K  >  5  or  J  <  4  then 
K  :=  K  +  J; 

J  ;=  J  +  1; 

else 

K  :=  J  -  K; 

K  :=  K  +  1/ 

end  if; 


if  TEMPERATURE  <50.0  then 
PUT_LINE ( "Emergency ! " ) ; 
RAD_SET  :=  RAD_SET  +  15.0/ 
elsif  TEMPERATURE  <  65.0  then 
PUT_LINE ("Too  Cold"); 
RAD_SET  :=  RAD_SET  +  5.0; 
elsif  TEMPERATURE  <70.0  then 
PUT  LINE ("OK"); 
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We  have  seen  how  the  if  statement  can  be  used  to  make  a  selection.  A  case 
statement  can  be  used  if  a  choice  has  to  be  made  between  several  different 
alternatives.  A  case  statement  starts  with  the  reserved  word  'case'  and  ends 
with  the  reserved  words  'end  case.'  After  the  word  'case',  there  is  a 
discrete  expression  whose  value  determines  the  choice  of  one  of  the  several 
alternatives.  A  discrete  expression  is  an  expression  whose  value  is  of  a 
discrete  type,  that  is,  the  expression  is  either  an  integer  type  or  some 
enumeration  type.  A  list  of  alternatives  following  the  word  'when'  is  a  list 
of  the  possible  values  that  the  discrete  expression  can  assume. 

type  ONE_TO_FOUR  is  range  1 . . 4 ; 

NUMBER  : ONE_TO_FOUR ; 

case  NUMBER 
when  1  => 

PUT ("ONE") ; 
when  2  => 

PUT ("TWO") ; 
when  3  => 

PUT ("THREE") ; 
when  4  => 

PUT ("FOUR") ; 

end  case; 
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If  any  possible  values  are  omitted  from  the  list  of  alternatives,  there 
must  be  a  special  'others'  alternative.  The  'others'  alternative  must  come 
last  in  the  case  statement,  so  that  when  the  case  statement  is  executed,  the 
'others'  alternative  is  reached  only  if  the  selector  has  a  value  other  than 
those  already  enumerated  in  the  earlier  alternatives.  The  different 
alternatives  in  a  list  of  alternatives  can  be  enumerated  with  a  vertical  line 
or  the  interval  containing  them  may  be  stated. 

type  MONTH_NUMBER  is  range  1 . . 12 ; 

MONTH  :MONTH_NUMBER; 

case  MONTH  is 

when  1 . . 2  1 12  => 

PUT ("WINTER")  ; 
when  3  I  4  I  5  => 

PUT ("SPRING")  ; 
when  6 . . 8  => 

PUT ("SUMMER") ; 
when  9 . . 11  => 

PUT ("AUTUMN") ; 
when  others  => 

PUT ("Error  in  month  number"); 

end  case; 
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To  perform  iteration  in  Ada,  that  is,  to  execute  one  or  several  statements 
a  number  of  times,  a  loop  statement  is  used.  There  are  three  variations: 

(1)  a  simple  loop  statement  for  writing  part  of  a  program  that  is  to  be 
executed  an  infinite  number  of  times 

(2)  a  loop  statement  with  'while',  for  writing  part  of  a  program  that  is  to  be 
executed  a  fixed  number  of  times 

(3)  a  loop  statement  with  'for',  for  writing  part  of  a  program  that  is  to  be 
executed  until  a  certain  condition  is  met 

while  X  >  1.0  loop 

PUT(X,FORE=>6,AFT=>2,EXP=>0) ; 

X  :=  X  /  2.0; 
end  loop; 

while  abs (NEXT_TERM)  >=  EPSILON  loop 
SUM  :=  SUM  +  NEXT_TERM; 

K  =  K  +  1; 

SIGN  :=  -SIGN; 

NEXT_TERM  :=  SIGN  /  FLOAT (K  *  K) ; 
end  loop; 
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loop 

PUT_LINE("HELP!  I  can't  stop") ; 
end  loop; 

for  INDEX  in  1..10  loop 
PUT (INDEX) ; 
end  loop; 

for  NUMBER  in  reverse  1..5  loop 
PUT (NUMBER) ; 
end  loop; 
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There  is  a  special  exit  statement  that  can  be  used  in  conjunction  with  the 
loop  statement.  There  are  two  variants,  the  first  of  which  is  simply: 

exit ; 

This  statement  must  lie  within  a  loop  statement.  When  it  is  executed,  the 
iteration  is  terminated  and  control  passes  out  of  the  loop  statement  to  the 
first  statement  after  'end  loop.' 

The  second  variant  of  the  exit  statement  is  conditional.  If  the  boolean 
expression  is  true,  then  a  jvimp  out  of  the  loop  statement  takes  place,  just  as 
in  the  simple  exit  described  above.  If  the  boolean  statement  is  not  true, 
execution  continues  with  the  next  statement  within  the  loop;  no  jump  takes 
place. 

loop 

if  X  >  10  then 
exit ; 
else 

X  :=  X  +  2; 
end  if; 

end  loop; 
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loop 

PUT ("Enter  data") 
GET (X) ; 

exit  when  X  <  0 . 0 
SUM  :=  SUM  +  X; 
PUT(SUM,WIDTH=>3) 
end  loop; 
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SUBPROGRAMS  7-1 

The  use  of  subprograms  is  a  very  important  technique  when  mastering  the 
complexity  of  program  design.  A  program  should  normally  be  assembled  from 
several  subprograms,  each  of  which  describes  a  particular  calculation  or  stage 
of  the  program.  Subprograms  can  be  thought  of  as  building  blocks  that  are 
used  to  construct  a  whole  program. 

In  Ada  there  are  two  kinds  of  subprograms:  functions  and  procedures.  A 
function  is  used  to  describe  the  computation  of  a  particular  value  and  a 
procedure  is  used  to  describe  an  action  that  the  program  has  to  perform  but 
that  does  not  result  in  a  direct  value . 


procedure  C  (called  by  procedure  B) 

function  A  (returns  a  value  to  procedure  B) 
procedure  B  (calls  function  A  and  procedure  C) 
procedure  A  (calls  procedure  B) 
main  procedure  (calls  procedure  A) 
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A  function  can  be  regarded  as  a  'black  box’  into  which  one  or  more  values 
can  be  placed.  Out  of  the  box  comes  a  result,  whose  value  depends  on  the 
input  values.  As  a  simple  example,  we  shall  study  a  function  MEAN_VALUE  that 
calculates  the  mean  of  two  floating  point  numbers. 

function  MEAN_VALUE (XI, X2 :FLOAT)  return  FLOAT  is 
begin 

return  (XI  +  X2)  /  2.0; 
end  MEAN_VALUE; 

After  the  function's  name,  the  data  to  be  used  in  the  function  is  specified 
by  writing  a  list  of  the  functions  formal  parameters.  Two  values  of  type 
FLOAT  will  be  used  in  the  function  MEAN_VALUE. 

After  the  reserved  word  'return',  the  type  of  the  result  that  will  be 
returned  by  the  function  is  specified.  We  have  stated  that  the  value  returned 
by  the  function  MEAN_VALUE  will  have  type  FLOAT. 


X - X  I 

1  MEAN_VALUE  |  - >  MEAN_VALUE  of  X  and  Y 

Y - >1 _ I 
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function  MEAN_VALUE (XI, X2 : FLOAT)  return  FLOAT  is 
begin 

return  (XI  +  X2)  /  2.0; 
end  MEAN_VALUE; 

The  function  body  describes  what  is  inside  the  'black  box’.  Included  in 
the  function  body  is  an  expression  followed  by  the  word  'return.'  This 
expression  should  have  the  same  type  as  specified  after  the  word  'return'  in 
the  function  specification.  The  value  of  the  function  will  be  the  value  of 
the  expression.  That  is,  when  the  return  statement  is  executed,  the 
computations  in  the  'box'  terminate  and  what  comes  out  of  the  'box'  is  the 
value  of  the  expression  in  the  return  statement.  There  can  be  several  return 
statements  in  a  function,  but  it  is  most  common  to  have  only  one  and  for  that 
one  to  be  the  last  statement  in  the  function. 

A  function  is  only  a  description  of  how  a  particular  computation  works, 
telling  us  what  can  go  into  the  'box'  and  what  we  can  get  out  as  a  result.  To 
invoke  the  computation,  we  have  to  put  something  into  the  'box';  we  must  call 
the  function.  In  the  example  that  follows,  we  have  put  our  function 
MEAN_VALUE  into  a  complete  program  that  reads  in  two  numbers  from  the 
teimninal,  calculates  their  mean  and  displays  it  at  the  terminal. 
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with  TEXT_10; 

package  FLOAT_INOUT  is  new  FL0AT_10 (FLOAT) ; 
use  TEXT_IO, FLOAT_INOUT ; 
procedure  EVALUATE_MEAN  is 

NUMBERl , NUMBER2 , MEAN  : FLOAT ; 

function  MEAN_VALUE (XI, X2 : FLOAT)  return  FLOAT  is 

begin 

return  (XI  +  X2)  /  2.0; 
end  MEAN_VALUE; 
begin 

PUT_LINE ("Enter  two  real  numbers"); 

GET (NUMBERl ) ;  GET (NUMBER2 ) ; 

MEAN  : -  MEAN_VALUE ( NUMBERl , NUMBER2 ) ; 

PUT ("The  mean  is:  ") ;  PUT (MEAN) ; 
end  EVALUATE_MEAN; 

After  the  program  has  read  the  input  values  into  NUMBERl  and  NUMBER2,  there 
follows  a  call  to  the  function  MEAN_VALUE.  First,  there  is  the  name  of  the 
function  being  called  and  then,  in  brackets,  there  is  a  list  of  the  actual 
parameters  of  the  function.  The  values  of  the  actual  parameters  are  passed  to 
the  function.  The  formal  parameters  XI  and  X2  are  only  temporary  and  only 
exist  while  the  function  call  is  in  operation.  The  function  call  to  MEAN__VALUE 
will  take  on  the  value  calculated  in  the  return  statement  of  the  body. 
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The  other  subprogram  is  the  procedure.  A  procedure  differs  from  a  function 
in  that  it  does  not  return  a  result  when  it  is  called.  When  a  procedure  is 
called,  its  sequence  of  statements  is  put  into  action.  A  procedure  has  the 
same  form  as  a  function.  The  only  differences  are  that  the  reserved  word 
'procedure'  is  used  instead  of  'function',  and  that  no  result  type  is  given  in 
the  procedure  specification.  In  addition,  since  a  procedure  does  not  return 
any  value  as  a  result,  there  is  not  a  return  statement  in  the  procedure.  A 
procedure  normally  terminates  when  execution  reaches  the  final  end. 

As  an  example,  we  shall  write  a  procedure  PRINT_CENTERED  that  will  print 
any  piece  of  text  in  the  center  of  the  line.  This  procedure  will  have  a 
parameter  of  type  STRING  that  gives  the  text  to  be  printed. 

procedure  PRINT_CENTERED (TEXT: STRING)  is 

LINE_LENGTH  : constant  :=  80; 

begin 

SET_COL( (LINE_LENGTH  -  TEXT'LENGTH)  /  2) ; 

PUT (TEXT) ; 
end  PRINT_CENTERED; 

Recall  that  'LENGTH  is  an  attribute  of  the  type  STRING  which  gives  the  number 
of  characters  in  the  string. 
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Note  that  the  procedure  does  not  return  any  value  to  the  calling  program. 
This  is  what  distinguishes  a  procedure  from  a  function.  A  procedure  call  is 
considered  to  be  an  entire  statement  in  the  calling  program  whereas  a  function 
call  is  considered  to  be  an  expression.  A  procedure  call  is  terminated  with  a 
semicolon . 

with  TEXT_IO; 
use  TEXT_IO; 

procedure  PRINT_GREETING  is 

procedure  PRINT_CENTERED (TEXT: STRING)  is 
LINE_LENGTH  : constant  :=  80; 

begin 

SET_COL( (LINE_LENGTH  -  TEXT ’LENGTH)  /  2); 

PUT (TEXT) ; 
end  PRINT_CENTERED; 

begin 

NEW_LINE; 

PRINT_CENTERED ("Hello") ; 

PRINT~CENTERED ("I'm  having  a  great  time") ; 

PRINT_CENTERED ("learning  Ada");  NEW_LINE; 
end  PRINT  GREETING; 
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In  the  previous  exair^le,  we  transferred  text  from  the  calling  program  to 
the  subprogram  PRINT_CENTERED .  Transferring  parameters  between  the  calling 
program  and  the  procedure  can  be  carried  out  in  many  ways .  We  will  use  the 
following  procedure  to  illustrate  the  principle  of  parameter  association. 

procedure  NONSENSE (A: in  INTEGER;B:in  out  lNTEGER;C:out  INTEGER)  is 
begin 

B  A  +  B; 

C  0; 
end  NONSENSE; 

In  Ada,  a  parameter  can  be  of  mode  in,  mode  in  out,  or  mode  out.  In  the 
procedure  NONSENSE,  these  are  exemplified  by  A,  B  and  C,  respectively.  We  can 
say  that  A  is  used  to  put  values  into  the  NONSENSE  'box',  B  is  used  both  to 
put  values  in  and  get  them  out,  and  C  is  used  only  to  get  values  out  of  the 
NONSENSE  'box'. 


A 

B 
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Recall  that  an  actual  parameter  is  the  identifier  passing  a  value  from  the 
calling  procedure,  while  a  formal  parameter  is  the  identifier  receiving  a 
value  in  the  called  procedure. 

in  -  The  actual  parameter  can  be  a  variable,  constant  or  an  expression. 

It  must  have  a  value.  The  formal  parameter  is  considered  to  be  a 
constant  that  is  initialized  at  the  time  of  the  call.  The  procedure 
is  not  permitted  to  change  the  value  of  a  formal  parameter.  An  in 
parameter  inay  be  given  a  default  value  when  the  formal  parameter  is 
specified. 

out  -  The  actual  parameter  must  be  a  variable .  The  formal  parameter  can 

only  be  given  a  value.  It  can  not  be  used  in  an  expression. 

in  out  —  The  actual  parameter  must  be  a  variable.  It  must  have  a  value.  The 
formal  parameter  can  be  used  as  an  ordinary  variable.  Its  value  can 
be  both  used  and  changed.  If  the  value  is  changed,  the  value  of  the 
actual  parameter  is  changed. 

If  no  mode  is  explicitly  given  in  the  parameter  specification,  the  parameter 
is  automatically  an  in  parameter,  that  is,  the  specification  is  assumed. 
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We  shall  put  NONSENSE  into  a  program  that  calls  the  procedure: 

with  TEXT_IO,  BASIC_NUM_IO; 
use  TEXT_IO,  BASIC_NUM_IO; 
procedure  PARAMETER_DEMO  is 
X,Y,Z  : INTEGER; 

procedure  NONSENSE (A: in  INTEGER  :=  5; Brin  out  INTEGER; C : out  INTEGER)  is 


begin 

B  :  = 

B  +  A; 

C  :  = 

0; 

end  NONSENSE; 

begin 

X  :=  1; 

Y  :=  5;  Z  :=  10; 

PUT  (X)  ; 

PUT(Y);  PUT(Z);  NEWLINE; 

NONSENSE (X,Y,Z)  ; 

PUT (X) ; 

PUT(Y);  PUT{Z);  NEWLINE; 

end  PARAMETER  DEMO; 

in  I 

X  [1] - >  I  A  :=  X  (1) 

in  out  I  B  :=  Y  [5] - >  B  :=  B  +  A  [6] 

Y  [5] - >  I  C  :=  Z  [10] - >  C  :=  0  [0] 

I _ 


out 

- >  Y  [6] 

in  out 

- >  z  [0] 
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The  normal  procedure  for  calling  a  subprogram  is  to  list  all  the  actual 
parameters,  separated  by  commas.  The  first  actual  parameter  is  associated 
with  the  first  formal  parameter,  the  second  actual  parameter  is  associated 
with  the  second  formal  parameter  and  so  on.  This  is  called  positional 
parameter  association.  In  Ada  there  is  another  method  of  associating  the 
actual  parameters  with  the  formal  parameters  in  a  subprogram  call.  It  is 
possible  to  state  the  name  of  the  formal  parameters  that  the  actual  parameter 
is  to  be  associated  with.  We  call  this  named  parameter  association.  When 
named  parameter  association  is  used,  the  parameters  do  not  need  to  be  listed 
in  any  special  order.  In  addition,  positional  and  named  association  can  be 
mixed.  When  the  two  parameter  associations  are  mixed  in  a  call,  the 
positional  associations  must  be  written  first,  in  their  correct  order. 

procedure  MULTIPLE_WRITE  (CHAR .-CHARACTER; N:  INTEGER  ;=  2)  is 
begin 

for  I  in  1..N  loop 

PUT (CHAR);  NEW_LINE; 
end  loop; 

end  MULTIPLE_WRITE; 

MULTIPLE_WRITE('X',3) ;  MULTIPLE_WRITE (N=>3,CHAR=>’X' ) ; 

MULTIPLE_WRITE (CHAR=>'X' ,N=>3) ;  MULTIPLE_WRITE ( ’X’ , N=>3) ; 
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It  has  been  shown  that  a  variable  declared  in  a  subprogram  only  exits  while 
the  subprogram  is  called.  This  means  that  the  variable  has  only  a  certain 
scope,  which  extends  over  the  subprogram  in  which  it  is  declared.  All  sorts 
of  declarations,  such  as  those  of  types,  constants  and  subprograms,  have  an 
associated  scope  so  that  what  has  been  declared  is  only  known  and  used  in  a 
certain  part  of  the  program;  it  is  said  that  they  are  only  visible  in  that 
part  of  the  program. 


procedure  PI  is 
type  T  is  . . . ; 

A  : constant : INTEGER  :=  100; 
B  ; INTEGER  :=  2  *  A; 
procedure  P2 {X: INTEGER)  is 
C  -.FLOAT; 

procedure  P3(D:T)  is 
X  .-FLOAT; 


procedure  P4  (I .- INTEGER)  is 
Q  :T; 


A  declaration  applies  from  the  place  where 
it  is  made  to  the  end  of  the  subprogram  in 
which  it  is  made.  This  means  that  in  our 
example,  that  the  variable  Q  and  the  formal 
parameter  I  are  only  known  in  procedure  P4. 
Any  attempts  to  use  Q  or  I  outside  of  P4 
will  result  in  an  error. 


A  declaration  that  applies  in  a  subprogram 
P  also  applies  in  all  the  subprograms  to  P. 
The  type  T  in  our  example  is  thus  visible 
not  only  in  PI,  but  also  in  P2  (and  thus 
also  in  P3)  and  in  P4,  because  P2  and  P4 
are  declared  within  PI. 
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In  Ada,  we  have  the  option  of  compiling  a  program  before  internal 
subprograms  are  ready.  We  can  tell  the  Ada  compiler  that  we  intend  to  write 
and  compile  a  subprogram  separately  later.  We  do  this  by  writing  the  word 
'separate*  after  the  subprogram  specification. 


with  TEXT_IO; 
use  TEXT_IO; 

procedure  PRINTjGREETING  is 
NAME  :STRING<1. .10) ; 
procedure  PRINT_NAME (NAME : 
in  STRING)  is  separate; 

begin 

PUT ("Hi  ");  PRINT_NAME(NAME) ; 
end  PRINT  GREETING; 


with  TEXT_IO; 
use  TEXT_IO; 

separate (PRINT_GREETING) 

procedure  PRINT_NAME (NAME : in  STRING) 

begin 

PUT (NAME) ; 
end  PRINT  NAME; 


IS 


The  program  is  complete  and  can  be  compiled.  Of  course,  testing  is  not 
possible  until  the  separate  subprograms  are  also  written  and  compiled.  When 
the  subprograms  are  compiled  separately,  the  program  they  are  intended  for 
must  be  specified.  In  front  of  the  procedure  name  is  written  the  word 
'separate'  followed  by,  in  brackets,  the  name  of  the  program  in  which  it  will 
be  used.  There  is  an  advantage  to  using  separate  compilation  in  developing 
large  programs.  No  program  texts  need  to  be  very  long  and  the  program  becomes 
easier  to  understand. 
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To  declare  several  quantities  with  the  same  name  in  a  subprogram  is 
normally  forbidden;  but  in  Ada,  to  declare  several  subprograms  with  the  same 
name  in  the  same  program  is  allowed  and  they  are  known  as  overloaded 
subprograms.  Several  subprograms  may  have  the  same  name  in  a  subprogram  (or 
in  a  package)  if  they  have  different  base  types  for  parameters,  and  for  the 
result  in  the  case  of  functions . 

type  VECTOR  is  array (INTEGER  range  <>)  of  FLOAT; 

function  MEAN (XI, X2: FLOAT)  return  FLOAT  is 
begin 

return  (XI  +  X2)  /  2.0; 
end  MEAN; 

function  MEAN (V: VECTOR)  return  FLOAT  is 

SUM  .-FLOAT  :*  0.0; 

begin 

for  I  in  V RANGE  loop 
SUM  :=  SUM  +  V(I) ; 

end  loop; 

return  SUM  /  FLOAT (V LENGTH) ; 
end  MEAN; 
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In  Ada,  as  we  have  seen,  there  are  many  built-in  operators.  The  operator  + 
exists  for  both  integer  and  floating  point  types,  for  exanple,  and  the 
operator  -  is  defined  for  all  types  we  have  encountered  so  far.  When  we 
declare  our  own  types,  we  may  also  like  to  define  operators  for  them. 

type  VECTOR  is  array (INTEGER  range  <>)  of  FLOAT; 

Assume  we  have  declared  variables  of  type  VECTOR:  X, y,Z 

iVECTORd.  .5)  ; 

In  order  to  add  two  variables,  using  a  statement  like  Z  :=  X  +  Y,  we  must 
define  a  new  function  "+"  for  identifiers  of  type  VECTOR. 

function  "+"  (VI, V2 : VECTOR)  return  VECTOR  is 
TEMP  rVECTOR (VI 'RANGE)  :=  V2; 

begin 

for  T  in  VI 'RANGE  loop 

TEMP (I)  TEMP(l)  +V1(I); 
end  loop; 
return  TEMP; 
end  "+"; 

We  can  say  that  we  have  overloaded  operators  in  exactly  the  same  sense  as  the 
overloaded  subprograms  we  discussed  earlier. 
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It  has  been  shown  that  one  subprogram  can  call  another.  Furthermore,  a 
subprogram  can  call  itself,  and  such  a  subprogram  is  called  a  recursive 
subprogram.  It  is  appropriate  to  use  recursive  subprograms  to  solve  certain 
types  of  problems .  The  problem  for  which  recursion  is  most  useful  are  those 
which  are  defined  from  the  start  in  a  recursive  way;  this  occurs  often  in 
mathematical  calculations .  The  most  common  example  of  a  recursive  subprogram 
is  a  function  to  calculate  the  factorial  of  a  number  n.  The  factorial  of  a 
number  n,  written  n!,  can  be  defined  by: 

n!  =  1  ifn=0; 

n!=lx2x3x...xn  ifn>0. 

Another  way  of  writing  the  definition  is: 

n!  =  1  if  n  =  0; 

n!  “  n{n  -  1) !  if  n  >  0. 

The  second  definition  leads  naturally  to  the  following  Ada  function: 

function  FACTORIAL (N: NATURAL)  return  POSITIVE  is 
begin 

if  N  •=  0  then 
return  1 ; 
else 

return  N  *  FACTORIAL (N  -  1) ; 
end  if; 

end  FACTORIAL; 
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We  have  seen  that  by  using  array  types  we  can  describe  complicated  data 
objects  with  many  con^onents.  One  limitation  of  array  types  is  that  all  the 
coicponents  of  an  array  must  be  of  the  same  kind.  Therefore  array  types  cannot 
be  used  to  describe  confound  data  objects  where  the  conponents  of  an  object 
are  of  different  types.  Instead,  we  use  record  types. 

As  an  example,  we  shall  study  the  description  of  a  car  in  a  hypothetical 
register  of  cars.  If  we  have  the  type  declarations: 


type  yEAR_TyPE  is  range  1900.. 2000; 

type  WEIGHT_TYPE  is  range  100.. 10000;  —  measured  in  kg 
type  POWER_TYPE  is  digits  4;  —  measured  in  kW 


A  definition  of  a  record  starts  with  the  reserved  word  ’record'  and 
with  'end  record. '  Between  these  words  are  declarations  of  the  record 


components . 

type  CAR_TYPE  is 
record 

REG_NUMBER 

MAKE 

MODEL_YEAR 

WEIGHT 

POWER 

end  record; 


: STRING (1. .7)  ; 
:STRING(1. .20)  ; 
:yEAR_TYPE; 
:WEIGHT_TYPE; 
.•POWER  TYPE; 


ends 
type ' s 
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RECORD  VARIABLES 

CM 

1 

00 

1  II  III 

1  REG  NUMBER  |  MAKE  |  MODEL  YEAR  1  WEIGHT  |  POWER  |  MY 

1  II  III 

CAR 

We  can  now  define  variables  of  type  CAR_TYPE.  MY_CAR  :CAR_TYPE; 

To  access  a  particular  component  of  a  record,  selection  is  used.  A  period  is 
written  after  the  name  of  the  record,  followed  by  the  name  of  the  component . 

For  exart^le,  if  we  want  to  give  the  component  WEIGHT  in  the  variable  MY_CAR 
the  value  920,  we  can  write  the  assignment  MY_CAR. WEIGHT  :=  920; 

Similarly:  MY_CAR. POWER  :=  MY_CAR. POWER  +  10.0; 

if  MY_CAR. POWER  >  100.0  then 

PUT_LINE ("Tuned" ) ; 
end  if; 

PUT (MY_CAR.MAKE) ; 

Selection  is  used  for  accessing  the  individual  components 
the  whole  record  can  also  be  handled  at  once. 

of  a  record,  but 

YOUR_CAR  :=  MY_CAR; 

Screen  64 


125 


ASSIGNMENT  RECORDS 


8-3 


If  we  want  to  initialize  the  variable  MY_CAR  at  the  same  time  as  declaring 
it,  we  write: 

My_CAR  :CAR_TYPE  {"C123XYZ", "Ford  Fiesta  GL  ”,1986,840,30.0); 

We  can  also  use  record  aggregates  in  assignments  and  comparisons,  such  as: 

YOUR_CAR  :-  {"ABD_544", "Volvo  245  DL  ",1982,1400,70.0); 

if  YOUR._CAR  =  ("ABD_544","Volvo  245  DL  ",1982,1400,70.0)  then  ... 

Only  the  conparison  operators  =  and  /=  are  defined.  Thus  it  is  not  possible 
to  see  whether  one  record  is  'greater  than’  or  'less  than'  another. 

Named  association  can  also  be  used  by  stating  the  name  of  the  component  and 
its  corresponding  value.  In  that  case,  it  is  not  necessary  to  give  the  values 
of  the  components  in  the  same  order  as  they  appear  in  the  record. 

yOUR_CAR  :=  (REG_NUMBER  =>  "ABD_544", 

MODEL_YEAR  =>  1982, 

MAKE  =>  "Volvo  245  DL  ", 

POWER  =>  70.0, 

WEIGHT  =>  1400); 
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It  is  very  conunon  in  real  life  to  have  a  number  of  objects  with  the  same 
properties.  One  exan^le  is  the  result  list  from  a  sporting  event.  For  each 
con^titor,  his  or  her  number,  name,  club  and  result  are  given.  The  natural 
data  structure  to  use  in  Ada  to  describe  such  a  real  thing  is  an  array  of 
records.  The  result  list  from  the  sporting  event  could  be  described  by: 


type  NUMBER  is  range  1..50; 
type  TIME  is  digits  7  range  0.0.. 600.0; 
type  COMPETITOR  is 
record 


ID_NUMBER 
NAME 
CLUB 
RUN_TIME 
end  record; 


:  NUMBER; 
:STRING(1. .10)  ; 
:STRING(1. .20)  ; 
:TIME; 


type  RACE_LIST  is  array(1..50)  of  COMPETITOR; 

Let's  assume  that  the  cortpetitors  are  given  ID_NUMBERs  in  the  order  in 
which  they  are  ranlced  prior  to  the  race.  Specification  is  used  to  identify 
the  particular  components.  For  examp’ e,  the  final  time  of  the  person  seeded 
10th  would  be: 

RACE  LIST (10) .COMPETITOR. RUN  TIME 
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Once  an  array  is  declared,  it  is  static.  The  number  of  components  in  the 
array  cannot  change  during  the  execution  of  the  program  unit.  However,  in 
some  applications,  the  number  of  objects  needed  is  not  known  in  advance.  Then 
dynamic  data  structures  are  required,  that  can  grow  and  shrink  during  program 
execution;  it  must  therefore  be  possible  to  create  new  objects  during 
execution.  An  exanple  of  a  dynamic  data  structure  is  a  list  where  elements 
can  be  added  and  removed  dynamically. 

To  create  a  dynamic  object  during  execution,  an  allocator  is  used.  This, 
in  its  sin^lest  form,  is  an  expression  with  the  reserved  word  'new'  followed 
by  a  type  name.  To  create  a  dynamic  object  of  type  INTEGER,  for  example,  we 
can  write 

new  INTEGER; 

It  is  most  common  to  work  with  dynamic  objects  of  record  types.  If,  for 
example,  we  have  declared  the  type  PERSON,  we  can  then  create  a  new  object  of 
type  PERSON  using  the  allocator. 

type  PERSON  is 
record 

NAME  ;STRING(1. .20) ; 

SSN  :STRING(1. .9) ; 

end  record; 

new  PERSON; 
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It  is  possible  to  add  an  initialization  term  to  the  allocator  to  give  a 
newly  created  object  a  value.  After  the  name,  an  apostrophe  is  written 
followed  by  the  values  in  brackets .  The  values  in  brackets  do  not  need  to  be 
constants,  but  they  must  at  least  be  expressions  with  the  same  type  as  the  new 
object . 

new  INTEGER' (5) ; 

new  INTEGER' (2  *  N) ; 

new  PERSON' ("John  Smith  ","123456789"); 

The  result  of  an  allocator  is  a  reference  or  a  pointer,  or,  as  generally 
called  in  Ada,  an  access  value.  We  say  that  this  result  is  of  type  ACCESS;  in 
Ada,  the  reserved  word  'access'  is  used  to  denote  this  pointer  type. 

As  for  other  types,  it  is  possible  to  declare  variables  of  ACCESS  types. 

In  the  following  example,  two  access  variables  are  declared,  PI  and  PP. 

type  INT_POINTER  is  access  INTEGER; 

type  PERS_POINTER  is  access  PERSON; 

PI  : INT_POINTER; 

PP  :PERS  POINTER; 
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We  can  now  use  access  variables  to  save  the  pointers  to  the  created 
objects . 


PI  new  INTEGER' (5) ;  PI  - >  |  5  | 


PP  :»  new  PERSON' (John  Smith  ","123456789"); 


pp  - >  I  John  Smith  11234567891 

I _ 1 _ I 

NAME  SSN 


If  an  access  variable  is  not  initialized  with  its  declaration,  it 
automatically  takes  the  value  null  which  means  it  is  not  pointing  to  anything. 


PI  :=  new  INTEGER;  PI  - > 

PP  ;=  new  PERSON;  PP - > 
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ACCESSING  AN  OBJECT  8-6 

Now  the  pointer  can  be  used  to  get  at  the  new  object  —  it  points  to  it;  it 
provides  access  to  it.  To  change  a  person’s  name,  for  example,  we  can  write: 

PP.NAME  :=  "Johnathan  P  Smith 

and  to  write  out  the  person's  SSN,  we  can  make  the  call 

PUT{PP.SSN) ; 

If  the  whole  object  that  PP  points  to  is  required,  the  reserved  word  'all' 
can  be  used. 

PP.all  :=  ("Jane  Smith  ","987654321"); 

Several  access  variables  may  point  to  the  same  object.  If  we  declare 
another  variable 

PP2  :PERS_POINTER; 

We  can  now  write  the  statement  PP2  :=  PP; 


PP  - >  I  Jane  Smith  19876543211 

PP2 - >  I _ I _ I 

NAME  SSN 
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A  linked  list,  or  simply  a  list,  is  a  dynamic  data  structure  with 
applications  in  many  different  areas  of  programming.  A  list  of  three  integers 
is  illustrated.  Each  element  in  the  list  contains  a  value  and  a  pointer  to 
the  next  element  in  the  list.  The  first  element  in  a  list  is  usually  called 
its  head  and  that  element  is  pointed  to  by  a  special  pointer. 


HEAD - >  I  4  I - >  I  7  I - >  I  2 

I _ I  I _ I  I 


If  we  put  the  declaration  of  LINK  before  that  of  LIST_ELEMENT,  then 
LIST_ELEMENT  will  be  undefined  when  LINK  is  declared.  Therefore,  we  use  an 
incomplete  type  declaration  where  it  is  only  stated  that  LIST_ELEMENT  is  a 
type.  Later,  a  full  type  declaration  is  made. 

type  LIST_ELEMENT; 
type  LINK  is  access  LIST_ELEMENT; 
type  LIST_ELEMENT  is 
record 

VALUE  : INTEGER; 

NEXT  :LINK; 

end  record; 
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We  start  building  up  a  linked  list  by  declaring  an  access  variable: 

LINK  :LINK;  LIST - > 

This  variable  automatically  takes  the  value  null  on  declaration,  which 
describes  the  fact  that  the  list  is  empty.  We  can  create  a  new  element  and 

add  it  to  the  list.  _ 

LIST  :=  new  LIST_ELEMENT’ (2, LIST) ;  LIST  - >  |  2  | 

I _ I 

The  second  part  of  the  list  element,  the  pointer  to  the  next  element  in  the 
list,  automatically  gets  the  value  null  when  the  element  of  the  list  is 
created.  Assume  that  we  now  want  to  create  other  elements  in  the  list 
containing  the  values  7  and  4. 

procedure  PUT_FIRST (DATA: in  INTEGER;!: in  out  LINK)  is 
begin 

L  :=  new  LIST_ELEMENT ' (DATA, L) ;  —  The  new  element  is  created  first 

end  PUT_FIRST;  —  then  the  pointer  L  is  moved 

We  can  build  up  the  previous  list  by  making  the  calls 

PUT_FIRST(7,LIST)  ;  LIST - >  1  4  | - >  |  7  | - >  |  2  | 

PUT_FIRST(4,LIST)  ;  | _ |  | _ |  | _ | 
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It  is  sometimes  necessary  to  place  a  new  element  in  a  particular  position 
in  a  linked  list .  Suppose,  for  exan^le,  we  have  an  element  in  a  list  and  a 
pointer  P  is  pointing  to  it.  Now  suppose  we  want  to  put  a  new  element  with 
value  4  after  this.  This  new  element  can  then  be  created  and  placed  in  the 
list  with  a  single  statement . 

P.NEXT  :=  new  LIST_ELEMENT' (4,P.NEXT) ; 


>  1  4  I  \ 

I _ I  \  _ 

- >  I  5  I 

. I _ 1 


If  we  wanted  to  insert  a  new  element  in  front  of  a  particular  element  that 
is  pointed  to,  it  would  be  much  more  trouble.  Then  we  would  need  to  run 
through  the  list  from  the  beginning  in  order  to  get  access  to  the  element  in 
front  of  the  one  pointed  to. 

In  certain  cases,  it  is  simple  to  remove  elements  from  a  list.  The  first 
element  can  be  removed  with  the  statement  LIST  :=  LIST. NEXT; 

It  is  also  easy  to  remove  the  element  coming  after  one  to  which  there  is  a 
pointer.  For  exarr^le,  we  can  remove  the  element  that  lies  after  the  one  that 
P  points  to. 

P.NEXT  :=  P.NEXT. NEXT; 


_  / 

P - >  1  3  1/ 

I _ I  .  . 
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We  shall  study  a  function  that  searches  for  a  particular  element  in  a  list . 
If  we  are  searching  for  a  particular  person  in  a  list  of  people,  the  function 
returns  the  pointer  to  the  corresponding  element  in  the  list;  otherwise,  it 
will  return  a  value  of  null. 


type  PERSON; 

type  PERSON_LINK  is  access  PERSON; 
subtype  NAME_TYPE  is  STRING (1 . .20) ; 
type  PERSON  is 


record 
NEXT 
NAME 
LENGTH 
WEIGHT 
end  record; 


: PERSON_LINK; 
:NAME_TYPE; 

: INTEGER; 

: FLOAT; 


function  FIND_PERSON (L:PERSON_LINK; 
REQ_NAME : NAME_TYPE ) 
return  PERSON_LINK  is 
P  :PERSON_LINK  :=  L; 

begin 

while  P  /=  null  and  then  P.NAME 
/=  REQ_NAME  loop 
P  :=  P.NEXT; 
end  loop; 
return  P; 
end  FIND  PERSON; 


In  the  function,  the  pointer  P  is  made  to  run  all  through  the  list  until  it 
is  finished  (P  has  the  value  null)  or  until  the  required  person  is  found. 
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When  a  program  is  executed,  unexpected  situations  sometimes  occur.  Such  a 
situation  is  called  an  exception.  The  exception  may  be  the  result  of  an  error 
of  some  kind,  for  example,  dividing  by  zero,  using  an  index  to  an  array 
outside  the  allowed  constraints,  or  giving  faulty  input  data  to  a  program  or 
subprogram.  An  exception  is  not  necessarily  the  result  of  an  error  in  the 
program.  It  may  be  something  that  only  happens  very  rarely  when  the  program 
is  run.  In  Ada  there  are  five  predefined  exceptions: 


CONSTRAINT_ERROR 

NUMERIC_ERROR 

PROGRAM_ERROR 

STORAGE_ERROR 

TASKING  ERROR 


Occurs,  for  exanple,  if  a  variable  is  assigned  an  illegal 
value  or  indexing  is  attempted  beyond  the  limits  of  an 
array. 

Occurs  when  a  numeric  operation  cannot  give  a  correct 
result.  A  common  case  is  trying  to  divide  by  0. 

Occurs  in  unusual  circumstances,  when  part  of  the  program 
called  is  not  accessible,  or  when  the  final  end  in  a 
function  is  reached,  that  is,  the  function  has  not  returned 
a  result . 

Occurs  if  the  accessible  memory  expires,  for  example,  there 
is  a  recursive  subprogram  with  a  faulty  terminating 
condition  so  that  too  many  instances  of  the  subprogram  are 
generated. 

Occurs  in  connection  with  parallel  programs . 
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When  an  exception  occurs,  the  normal  execution  of  the  program  ceases 
immediately.  If  no  special  precautions  have  been  taken  in  the  program,  it 
will  terminate  abnormally  with  an  error  message  stating  the  type  of  exception 
causing  the  termination. 

In  an  Ada  program,  it  is  possible  to  work  with  exceptions  other  than  the 
five  predefined  ones  listed  previously.  It  is  possible  to  define  our  own 
exceptions.  An  exception  TIME_UP,  for  example,  could  be  declared  as  follows: 

TIME_UP  : except ion; 

This  is  a  declaration  and  is  placed  with  the  other  declarations  — 
declarations  of  variables,  for  example.  In  form,  it  looks  like  a  variable 
declaration,  but  TIME_UP  is  not  a  variable.  It  cannot  have  a  value.  All  the 
declaration  says  is  that  in  the  program  there  is  an  exception,  TIME_UP,  that 
may  happen.  We  can  make  as  many  declarations  as  we  like  of  our  own  exceptions 
in  a  program.  We  can  list  several  in  one  declaration,  for  example: 

TABLE_EMPTY,  TABLE_FULL  :exception; 

To  cause  an  exception  to  occur,  we  can  use  a  raise  statement :  raise 
TIME_UP;  Unless  we  do  something  special,  normal  execution  of  the  program 
ceases  with  an  error  message; 

**  MAIN  PROGRAM  ABANDONED  —  EXCEPTION  "time_up"  RAISED  ** 
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So  far  we  have  said  that  an  exception  interrupts  a  program  so  that  it  stops 
with  an  error  message.  It  is,  however,  possible  to  trap  exceptions  in  a 
program  and  take  some  appropriate  action.  If  we  have  a  program  that  controls 
a  critical  process,  it  is  not  acceptable  for  the  program  to  cease  abruptly  if 
an  exception  occurs.  The  program  must  deal  with  what  has  happened. 

There  are  three  levels  of  ambition  in  dealing  with  exceptions : 

(1)  Take  control  of  the  exception,  and  try  to  take  suitable  action  to  enable 
the  program  to  continue. 

(2)  Trap,  identify  and  pass  the  exception  on  to  another  part  of  the  program. 

(3)  Ignore  the  exception,  that  is,  the  program  will  stop  when  the  exception 
occurs . 

The  basic  principle  should  be  that  the  exception  is  controlled  in  the  part 
of  the  program  (or  outside  it,  if  necessary)  where  its  effect  can  most 
sensibly  be  handled. 
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As  an  example  of  controlling  an  exception,  we  shall  study  a  function  that 
calculates  the  tangent  of  an  angle.  We  assume  that  we  have  access  to  a 
mathematical  package  containing  the  functions  SIN  and  COS,  but  not  TAN. 

function  TAN (X: FLOAT)  return  FLOAT  is 
begin 

return  SIN(X)  /  COS(X); 
exception 

when  NUMERIC_ERROR  => 

if  (SIN(X)  >=0.0  and  COS(X)  >=  0.0)  or 
(SIN(X)  <0.0  and  COS (X)  <  0.0)  then 
return  FLOAT 'LARGE ; 
else 

return  -FLOAT ' LARGE ; 
end  if; 
end  TAN; 

We  have  inserted  the  part  that  starts  with  the  reserved  word  'exception'  to 
deal  with  an  attempt  to  divide  by  0.  When  the  execution  of  the  return 
SIN (X) /COS (X)  statement  raises  a  NUMERIC_ERROR,  control  passes  to  the 
statements  that  are  in  the  appropriate  exception  handler.  Control  subsequently 
returns  to  the  program  that  called  TAN  and  execution  continues  as  normal. 
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There  can  be  handlers  for  several  exceptions  at  the  end  of  a  subprogram, 
both  predefined  and  declared. 

exception 

when  TIME_UP  -> 

PUT_LINE  ("Time  to  make  a  move")  ; 
when  CONSTRAINT_ERROR  => 

PUT_L1NE ("Error  in  index  value"); 
when  TABLE_FULL  |  TABLE_EMPTY  => 

PUT_LINE ( "Table  error" ) ; 
when  others  => 

PUT_LINE ("Something  wrong  in  package  PLAY") ; 

We  see  that  it  is  possible  to  have  common  handlers  for  two  or  more  kinds  of 
exceptions.  In  our  example,  TABLE_FULL  and  TABLE_EMPTY  have  a  common  handler. 
Thus,  the  message  "Table  error"  is  output  when  exceptions  of  the  kind 
TABLE_FULL  or  TABLE_EMPTY  occur.  We  also  see  that  there  can  be  an  others 
alternative  to  handle  all  other  kinds  of  exception  that  are  not  already 
listed.  An  others  alternative  must  appear  at  the  end,  if  it  occurs  at  all.  If 
an  exception  occurs  and  the  current  subprogram  has  no  handler  for  exceptions 
of  this  kind,  then  the  exception  is  'passed  on’  to  the  subprogram  that  called 
the  current  subprogram.  If  this  also  has  no  exception,  it  is  passed  on 
further.  If  no  handler  has  been  encountered  at  the  top,  an  error  occurs. 
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We  can  now  write  several  lines  to  trap  the  exception  NUMERIC_ERROR .  This 
then  means  that  the  program  is  not  interrupted  and  can  continue  by  asking  for 
another  value. 

loop 

begin 

PUT ("Enter  a  real  number,  or  CTRL-D  to  quit:  ") ; 

exit  when  END_OF_FILE; 

GET (NUMBER) ; 

RES  :*  TAN (NUMBER) ; 

PUT ("Tangent  is:  ") ;  PUT (RES);  NEW_LINE; 
exception 

when  NUMERIC_ERROR  => 

PUT_LINE("No  tangent  can  be  evaluated"); 

end 

end  loop; 

Note  the  words  'begin'  and  'end'  around  the  contents  of  the  loop  statement. 
This  is  a  block  statement .  An  exception  may  be  placed  at  the  end  of  a  block 
statement.  When  an  exception  occurs  within  the  block,  control  passes  to  the 
appropriate  handler  (if  there  is  one) .  When  the  statements  within  the  handler 
have  been  executed,  execution  of  the  whole  block  statement  stops  and  the 
program  continues  with  the  next  statement  after  the  block  statement . 
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All  programs  we  have  studied  so  far  have  read  from  or  written  to  the 
terminal.  However,  it  is  often  necessary  for  a  program  to  work  with  other 
external  devices  connected  to  the  computer.  For  exairple,  output  might  be 
rec[uired  on  a  line  printer  or  a  special,  high-quality  printer  instead  of  the 
terminal.  Another  problem  is  that  the  variables  used  in  a  program  only  exist 
while  the  program  is  being  executed.  If  the  data  is  to  be  saved  permanently, 
so  that  it  survives  when  program  execution  has  finished,  it  must  be  stored  in 
the  computer's  secondary  storage,  most  often  on  disk.  It  is  therefore 
important  to  be  able  to  read  and  write  data  to  and  from  secondary  storage. 

In  computer  jargon,  an  arbitrarily  long  sequence  of  data  objects  where  all 
the  objects  have  the  same  type  is  called  a  file.  A  file  can  be  stored  in  the 
con^uters  secondary  storage,  for  example,  on  disk,  and  can  therefore  be  used 
to  store  data  permanently.  If  these  individual  objects  in  a  file  have  the 
type  CHARACTER,  the  file  is  called  a  text  file.  In  contrast,  if  the 
individual  objects  do  not  have  the  type  CHARACTER,  the  file  is  usually  called 
a  binary  file.  These  objects  are  actually  represented  in  the  same  binary  form 
used  internally  in  a  program. 

In  Ada,  there  are  two  basic  categories  of  files:  sequential  files  where 
objects  must  be  read  and  written  in  their  correct  order  from  start  to  finish; 
and  direct  access  files  or  direct  files,  where  an  arbitrary  object  can  be 
accessed  without  going  through  the  file  in  a  particular  order. 
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Text  files  belong  to  the  category  of  sequential  files.  A  text  file  is 
understood  logically,  by  a  program,  as  a  series  of  characters  to  be  either 
read  or  to  be  written.  Each  text  file  exists  physically  in  the  conputer 
system  and  has  a  special  name .  The  rules  for  the  format  of  such  names  do  not 
need  to  agree  (and  generally  do  not  agree)  with  the  rules  for  identifiers  in 
Ada.  The  format  of  the  name  depends  entirely  on  the  computer  system  in  use. 

In  an  Ada  program,  all  work  is  performed  on  logical  text  files.  In  the 
package  TEXT_IO,  there  is  a  type  FILE_TYPE  that  can  be  used  to  declare  such 
logical  text  files .  At  the  start  of  a  program,  we  can  declare  a  logical  text 
file  (  a  file  variable),  for  exanple:  INFILE  :FILE_TypE; 

We  shall  distinguish  between  a  logical  file  in  a  program  and  a  physical  file 
in  the  coir^uter  system,  by  calling  the  formal  singly  a  file  and  the  latter  an 
external  file. 

Before  reading  or  writing  a  file  can  begin  in  a  program,  it  must  be 
connected  with  an  external  file.  This  is  done  by  calling  either  CREATE  or 
OPEN  in  TEXT_IO.  CREATE  is  used  when  a  new  external  file  is  to  be  created  and 
OPEN  is  used  when  work  is  to  be  performed  on  an  existing  external  file.  Both 
CREATE  and  OPEN  take  parameters  for  the  logical  file  name,  the  file  mode 
(either  IN_FILE  to  read  or  OUT_FILE  to  write)  and  the  external  file  name. 

When  reading  from  or  writing  to  a  file  is  finished,  the  file  has  to  be 
closed  by  calling  the  procedure  CLOSE.  The  only  parameter  necessary  is  the 
file  name.  If  we  forget  to  close  a  file  in  a  program,  the  result  is  not  well 
defined.  Therefore,  we  should  get  into  the  habit  of  closing  a  file  after  use. 
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An  open  file  can  either  be  read  from  or  written  to,  and  all  the  subprograms 
previously  discussed  in  connection  with  reading  from  and  writing  to  the 
terminal,  such  as  GET,  PUT  and  NEW_L1NE.  The  only  difference  is  that  a  file 
has  to  be  given  as  a  first  parameter  in  any  call  that  is  not  destined  for  the 
terminal. 

with  TEXT_IO; 
use  TEXT_IO; 
procedure  C0PY_F1LE  is 

INFILE,  OUTFILE  :FILE_TYPE; 

LINE  :STRING(1. .200) ; 

LINE_LENGTH  :NATURAL; 

begin 

OPEN ( INF I LE , MODE=> IN_F I LE , NAME=>" old .file"); 

CREATE (OUTFILE, NAME=>"copy. f ile" ) ;  —  default  mode  is  OUT_FILE 

while  not  END_OF_FILE (INFILE)  loop  —  END_OF_FILE  returns  a  boolean 
GET_L1NE (INFILE, LINE,  LINE_LENGTH) / 

PUT_LINE (OUTFILE, LINE ( 1 . . LINE_LENGTH) ) ; 
end  loop; 

CLOSE (INFILE) ; 

CLOSE (OUTFILE)  ; 
end  COPY  FILE; 
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When  we  want  to  work  with  sequential  files  other  than  text  files,  we  shall 
make  use  of  another  standard  package  called  SEQUENTIAL_IO .  To  gain  access  to 
this  package,  the  following  line  must  appear  at  the  start  of  the  program. 

with  SEQUENTIAL_IO; 

In  a  text  file  the  objects  are  always  of  type  CHARACTER,  but  in  the  case  of 
other  sequential  files,  the  objects  can  be  of  any  type.  For  this  reason, 
SEQUENTIAL_IO  is  not  a  ready-made  package  like  TEXT_IO.  It  is  a  generic 
package  (terr^late)  that  can  be  used  to  tailor  input/output  packages  for 
sequential  files  in  which  the  objects  have  exactly  the  required  type. 

Other  than  text  files,  the  most  common  files  to  work  with  are  those  in 
which  the  objects  have  a  record  type.  Assume  we  want  to  collect  information 
about  the  social  security  niambers  of  a  group  of  people .  We  can  store  the  data 
in  a  file  in  which  each  object  is  a  record  containing  the  person's  name  and 
social  security  number.  Other  information  can  also  be  maintained,  however, 
input  and  output  packages  must  be  instantiated  to  deal  with  the  numeric  types. 

type  PERSON  is 
record 
NAME 
SSN 

end  record 
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To  create  a  package  containing  the  facilities  for  handling  files  in  which 
the  objects  have  type  PERSON,  we  write: 

package  PERSON_INOUT  is  new  SEQUENT1AL_I0 (PERSON) ;  — instantiate 
PERSON_INOUT 

The  word  PERSON  in  brackets  states  that  the  objects  will  be  of  type  PERSON. 
The  new  package  will  be  called  PERSON_lNOUT .  As  in  the  case  of  text  files, 
logical  files  are  worked  with  in  a  program  and  file  variables  are  declared  to 
represent  the  logical  files .  To  declare  a  logical  file  in  which  the  objects 
have  the  type  PERSON  we  can  use  our  new  package  PERSON_INOUT  and  write: 

PERSON_FILE  : PERSON_INOUT . FILE_TYPE ; 

Note  that  we  have  used  selector  notation  and  written 
PERS0N_IN0UT.F1LE_TYPE.  We  could  have  included  a  use  PERSON_INOUT  clause  and 
only  write  FILE_TYPE,  but  the  compiler  would  not  have  known  if  we  meant  the 
FILE_TYPE  specified  in  TEXT_IO  or  the  FILE_TYPE  specified  in  PERSON_INOUT . 
Therefore,  selector  notation  is  generally  used  for  all  references  other  than 
to  TEXT_IO  and  additional  use  clauses  are  not  necessary. 
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To  link  a  logical  text  file  in  a  program  with  a  physical  file,  the 
procedures  CREATE  and  OPEN  are  used.  These  work  exactly  the  same  way  for 
general  files  as  for  text  files.  Reading  and  writing  are  in  some  respects 
simpler  for  general  sequential  files.  GET  and  PUT  are  not  used,  but  the  two 
procedures  READ  and  WRITE  are  specified  in  SEQUENT I AL_IO.  The  parameters 
required  for  both  READ  and  WRITE  are  the  logical  file  name  and  the  item  to  be 
read.  For  exarq}le,  assume  we  have  declared  a  record  variable  P 

P  : PERSON; 

and  we  have  opened  the  file  PERSON_FILE  to  read  from  it.  We  can  then  make  the 
call: 

READ (PERSON_FILE, P)  ; 

This  means  that  a  record  in  PERSON_FILE  is  read  and  copied  to  P .  Note  that 
the  entire  record  is  read  from  a  file  at  once.  It  is  not  possible  to  read  an 
individual  element  of  data;  it  is  not  possible  to  read  only  the  name  from  a 
record  in  the  file,  for  example.  This  demands  that  the  types  of  the  objects 
in  the  file  and  the  variable  being  read  to  are  the  same. 

Reading  and  writing  cannot  proceed  at  the  same  time  in  sequential  files. 
There  is,  however,  the  possibility  of  resetting  —  going  back  to  the  beginning 
of  the  file  and  using  it  in  a  new  way.  The  RESET  procedure  takes  the  logical 
file  name  as  its  only  parameter. 
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It  is  not  necessary  to  handle  the  records  in  a  file  sequentially  in  an  Ada 
program.  If  instead  of  using  the  package  SEQUENTIAL_IO  another  standard 
package,  DIRECT_IO,  is  used,  it  becomes  possible  to  read  and  write  records  in 
an  arbitrary  order.  For  every  open  file  the  Ada  system  keeps  a  current  index 
which  points  to  the  next  record  waiting  to  be  read.  Work  with  direct  files 
offers  the  possibility  of  controlling  the  index.  In  the  package  DIRECT_IO, 
there  are  the  type  declarations: 

type  COUNT  is  range  0. .implementation_dependent_integer/ 
subtype  POSITIVE_COUNT  is  COUNT  range  1. .COUNT 'LAST; 

The  current  index  has  the  type  POSITIVE_COUNT.  To  set  the  current  index  to 
a  particular  value,  the  procedure  SET_INDEX  is  used.  The  parameters  for 
SET_INDEX  are  the  logical  file  name  and  the  record  niimber  that  you  want  to  set 
the  index  pointer  to.  The  value  of  the  current  index  can  be  read  by  calling 
the  function  INDEX.  The  only  parameter  required  is  the  logical  file  name.  To 
determine  how  many  records  there  are  in  a  file  (that  is,  the  index  number  of 
the  last  record)  the  function  SIZE  can  be  used.  The  only  parameter  required 
is  the  logical  file  name.  INDEX  returns  values  of  type  POSITIVE_COUNT,  while 
SIZE  returns  values  of  type  COUNT  (there  is  not  an  index  value  of  0,  but  there 
can  be  0  records) . 
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When  a  record  is  to  be  read  or  written,  it  is  possible  to  state  which 
record  is  required.  There  are  two  versions  of  the  subprograms  READ  and  WRITE 
in  the  package  DIRECT_IO.  The  first  pair  is  identical  to  the  READ  and  WRITE 
found  in  SEQUENT 1 AL_10 .  Thus,  direct  files  can  be  treated  in  exactly  the  same 
way  as  sequential  files. 

The  second  version  of  the  two  procedures  has  a  third  parameter  FROM  in  READ 
and  TO  in  WRITE.  This  third  parameter  specifies  the  index  in  the  file  for  the 
record  that  is  to  be  read  or  written.  Before  reading  or  writing  starts,  the 
current  index  is  set  to  the  value  given.  To  read  record  number  100  of  file  F, 
for  exanple,  we  can  write: 

READ (F,R, 100) ; 

For  all  versions  of  READ  and  WRITE,  the  current  index  is  automatically 
increased  by  1  after  reading  or  writing.  For  example,  after  the  above  call, 
the  current  index  has  the  value  101. 

As  for  other  files,  a  direct  file  must  be  created  or  opened  before  reading 
or  writing  can  begin.  However,  a  direct  file  can  be  opened  for  both  reading 
and  writing.  The  file  should  be  specified  of  type  INOUT_FILE  when  the  file  is 
opened.  For  the  procedure  CREATE,  the  MODE  parameter  may  be  omitted  because 
the  default  value  is  INOUT_FILE.  The  remaining  subprograms  in  SEQUENTIAL_IO 
are  also  found  in  DIRECT_IO  and  work  in  exactly  the  same  way. 
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Subprograms,  types  and  objects  that  logically  belong  together  in  some  way 
can  be  put  together  in  a  package.  When  a  package  is  constructed,  its 
interface  with  the  rest  of  the  program,  in  other  words,  the  part  of  the 
package  that  will  be  visible  to  the  program,  has  to  be  specified.  Details 
that  are  not  essential  to  the  user  of  the  package  can  then  be  concealed  within 
the  package.  A  package  can  be  developed  and  con^iled  alone. 

When  a  conplicated  product,  such  as  a  car,  is  being  built,  it  is  necessary 
to  make  the  different  parts  separately  in  order  to  prevent  the  work  from 
becoming  too  conplex.  Eventually,  the  separate  parts  are  assembled  into  a 
complete  product .  To  fit  the  parts  together  successfully,  a  specification  of 
how  the  parts  fit  must  have  been  carefully  made  during  the  design  phase . 

Ada's  package  facility  allows  a  program  to  be  built  up  in  the  form  of 

several  separate  modules,  each  of  which  forms  a  logical  unit.  With  the  help 

of  a  package  specification  it  can  be  state  how  the  package  should  be  put 
together  with  other  parts  of  the  program.  Working  with  large,  unmanageable 
programs  is  thus  avoided:  one  subprogram  can  be  tackled  at  a  time. 

It  is  also  possible  to  build  up  a  library  of  general  packages  that  may  be 

used  in  several  contexts  within  different  programs.  These  could  include  a 
package  of  different  mathematical  functions  or  a  package  of  tools  for 
presenting  results  in  graphical  form.  These  packages  may  have  been  written  by 
the  individual  programmer,  or  have  been  obtained  from  another  source. 
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Each  package  has  a  specification.  This  can  be  regarded  as  the  package's 
'shop  window'  that  says  what  the  package  has  to  offer  the  potential  user.  The 
specification  specifies  the  package  interface  with  other  parts  of  the  program. 
A  package  specification  is  introduced  with  the  reserved  word  'package' 
followed  by  the  package  name.  Within  the  specification,  declarations  of  types 
and  objects  can  be  made  and  several  subprograms'  specifications  can  be  given. 

Suppose  we  want  to  work  with  ordinary  two-dimensional  geometric  figures, 
such  as  rectangles,  circles  and  triangles.  It  may  then  be  appropriate  to 
construct  a  package  containing  the  tools  for  performing  various  calculations 
on  these  figures .  We  can  call  it  PLANIMETRY 

and  write  a  specification  for  it.  In  addition  to  defining  types  LENGTH  and 
AREA  that  describe  lengths  and  areas  associated  with  the  figures,  we  shall 
declare  functions  that  calculate  the  areas  of  rectangles,  circles  and 
triangles .The  function  bodies  themselves  will  be  contained  in  the  body. 

package  PLANIMETRY  is 

type  LENGTH  is  digits  5  range  0.0  ..  I.OEIO; 
type  AREA  is  digits  range  0.0  ..  1.0E20; 
function  ARE A_RECTANGLE (L,H; LENGTH)  return  AREA; 
function  AREA_CIRCLE (R: LENGTH)  return  AREA; 
function  CIRCUM_CIRCLE (R; LENGTH)  return  LENGTH; 
function  AREA_TRIANGLE (B, H : LENGTH)  return  AREA; 

end  PLANIMETRY; 


Screen  90 


151 


ORDER  OF  COMPILATION 


11-3 


Before  we  go  on  to  see  how  a  package  can  be  used  and  what  a  package  body 
looks  like,  a  few  words  must  be  said  about  the  programming  environment  in  Ada. 
When  a  program  or  a  part  of  a  program  is  compiled,  a  compiler  is  used.  The 
coir^iler  reads  the  program  text  and  gives  the  program  translated  into  machine 
code  as  a  result .  Compilers  of  all  kinds  work  in  this  way,  not  only  the  Ada 
con^iler . 

An  Ada  coir^iler  differs  from  most  other  language  compilers,  however,  in 
that  it  not  only  produces  machine  code  but  also  keeps  track  of  all  the 
compilation  that  is  performed.  The  conpiler  maintains  what  is  called  an  Ada 
library.  When  a  coirpilation  is  complete,  the  Ada  compiler  puts  a  description 
of  the  program  (or  part  of  a  program)  that  has  been  compiled  into  the  Ada 
library. 

This  means  that  it  is  possible  to  refer  to  what  has  been  coitpiled  earlier 
in  a  program.  The  coitpiler  goes  into  the  Ada  library  and  searches  for 
information  about  the  relevant  item,  making  it  feasible  to  build  large, 
con^jlicated  programs  gradually.  During  compilation,  a  con^ilation  unit  is  fed 
into  the  coitpiler.  In  a  compilation  unit,  such  as  a  procedure,  a  'with' 
clause  can  be  put  first,  enabling  reference  to  be  made  to  other  compilation 
units.  If  we  coitpile  a  procedure,  for  exarrple,  we  can  have  the  clause: 

with  Q,R: 

This  means  that  Q  and  R  need  to  have  been  compiled  earlier. 
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Now  we  shall  look  at  how  to  construct  a  package  body  —  the  part  of  the 
package  that  is  concealed  from  the  user.  Details  that  the  user  does  not  need 
to  know  are  placed  in  the  package  body;  for  example,  the  subprogram  bodies  and 
internal  data. 

A  package  body  is  introduced  with  the  reserved  words  'package  body.'  The 
rest  of  the  package  body  has  the  same  structure  as  a  subprogram  body.  First 
comes  a  declarative  part  and  then  a  sequence  of  statements .  This  latter 


secticr_  can  be  omitted,  and  this  is  most 

package  body  PLANIMETRY  is 

PI  rconstant  :=  3.14159; 

function  AREA_RECTANGLE (L, H : LENGTH) 
return  AREA  is 

begin 

return  AREA(L)  *  AREA(H); 
end  AREA_RECT ANGLE; 
function  AREA_CIRCLE (R: LENGTH) 
return  AREA  is 

begin 

return  PI  *  AREA{R)  **  2; 
end  AREA  CIRCLE; 
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function  CIRCUM_CIRCLE (R: LENGTH) 
return  LENGTH  is 

begin 

return  2.0  *  PI  *  R; 
end  CIRCUM_CIRCLE; 

function  AREA_TRIANGLE (B, L: LENGTH) 
return  AREA  is 

begin 

return  AREA(B)  *  AREA(H)  /  2.0; 
end  AREA_TRI ANGLE; 

end  PLANIMETRY; 


RELATIONSHIP  BETWEEN  SPECS  AND  BODY 
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Within  the  package  body  are  the  complete  function  bodies  for  the  functions 
that  were  declared  in  the  package  specification.  There  is  also  a  constant  PI 
and  this  is  only  known  within  the  package  body.  Thus,  in  a  program  that  uses 
the  package  PLANIMETRY,  it  is  not  permitted  to  write: 

PLANIMETRY. PI  —  ERROR!  PI  is  only  know  within  the  package  body 
It  is  only  the  items  from  the  package  SPECIFICATION  that  are  know  outside. 

A  package  body  must  be  compiled  after  its  specification  has  been  conpiled. 
In  the  specification  we  talk  about  what  the  package  will  be  able  to  do  and  in 
the  body  we  state  how  to  do  what  we  have  promised.  It  is  possible  to  compile 
the  specification  and  body  separately  on  separate  occasions  or,  if  the  texts 
are  to  remain  together,  to  coir^ile  then  as  two  con^ilation  units  but  fed  to 
the  compiler  together.  In  the  latter  case  the  specification  should  come 
before  the  body.  It  is  recommended  that  the  two  parts  be  compiled  separately. 
The  package  body  contains  whole  programs  which  are  likely  to  be  amended 
recompiled  many  times  during  program  development.  It  is  therefore 
advantageous  to  separate  the  specification  and  the  body  to  prevent  having  to 
reconcile  the  package  specification  at  the  same  time.  However,  if  the 
specification  is  recompiled,  all  the  programs  using  the  package  must  also  be 
reconciled. 
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Packages  can  be  used  for  different  purposes  when  a  Ada  program  is  written. 
Generally,  there  are  four  different  categories  of  packages: 

(1)  Packages  with  a  collection  of  types  and  constants,  for  exan^le,  a 
package  of  mathematical  constants 

(2)  Packages  with  a  group  of  subprograms  that  logically  belong  together,  for 
exan^le,  a  package  of  standard  mathematical  functions 

(3)  Packages  with  'memory'  that  can  be  used  to  represent  coit^licated  objects 
in  different  states 

(4)  Packages  with  construct  abstract  data  types 

Our  package  PLANIMETRY  belongs  to  category  (2) .  The  following  package 
falls  into  category  (1) .  Note  that  no  body  is  required  for  packages  of  this 
type. 

package  ATOMIC_CONSTANTS  is 

ELECTRONIC_CHARGE  :constant  :=  1.602E-19;  —  coulomb 

ELECTRON_MASS  : constant  :=  0.9108E-3C;  —  kg 

NEUTRON_MASS  :constant  :=  1674.7E-30;  —  kg 

PROTON_MASS  :constant  :=  1672.4E-30;  —  kg 

end  ATOMIC  CONSTANTS; 
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The  special  thing  about  packages  of  category  (3),  packages  with  memory,  is 
that  they  can  be  in  different  states.  Each  time  the  package  is  used,  its 
state  changes.  Therefore,  the  package  must  be  able  to  'remember'  its  state 
between  uses . 

The  standard  package  TEXT_IO  can  be  said  to  belong  to  category  (3) .  It 
represents  the  real  object  —  the  'terminal'.  The  package  must  remember  how 
long  a  line  of  output  can  be  and  how  many  lines  there  can  be  on  a  page  of 
output.  When  printing  output,  between  calls  to  PUT,  PUT_LINE  and  NEW_LINE, 
the  package  must  remember  which  page  is  being  printed,  which  line  it  is  on  and 
how  much  of  the  output  has  already  been  printed. 

Earlier,  we  talked  about  a  data  type  being  characterized  by  the  values  that 
its  objects  can  assume  and  by  the  operations  that  can  be  carried  out  on  them. 
For  conplicated  types  that  we  construct  ourselves,  such  as  array  and  record 
types  of  various  kinds,  only  comparison  operators  are  normally  automatically 
defined,  but  we  can  create  new  operators  for  such  types  by  writing  subprograms 
and  combining  them  into  a  package  of  category  (4) .  For  example,  we  could 
create  a  package  to  perform  addition,  subtraction,  multiplication  and  division 
on  complex  numbers . 

type  COMPLEX_NUMBER  is 
record 

REAL, IMAGINARY  : FLOAT ; 
end  record; 
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We  have  seen  that  it  is  possible  to  hide  away  in  the  body  of  a  package 
those  details  that  are  of  no  interest  to  a  user.  There  is  another  possible 
way  of  concealing  the  details  of  an  abstract  data  type  in  Ada,  using  so-called 
private  types.  Within  the  body  of  a  package,  the  package's  private  types  may 
be  used  freely,  however,  outside  the  body  of  the  package  the  only  operations 
allowed  are  assignment  and  comparison  for  equality  and  inequality.  There  are 
occasions  when  the  package  designer  does  not  want  the  package  user  to  be  able 
to  carry  out  even  these  operations  on  a  private  type.  Then  a  limited  private 
type  can  be  declared.  The  reserved  word  'limited*  signifies  precisely  that 
assignment  and  comparison  are  forbidden. 

It  is  the  limitation  in  manipulation  of  the  abstract  data  types  that  makes 
the  use  of  private  types  so  valuable.  For  example,  a  stack  can  be  represented 
as  either  an  array  or  as  a  linked  list.  The  package  specification  for  both  is 
identical  except  for  the  private  types.  Because  the  data  types  are  different, 
the  package  bodies  will  be  significantly  different. 

standard  operations  for  stack  manipulation: 
procedure  CREATE (S: in  out  STACK); 
procedure  PUSH (A: ATOM, S : in  out  STACK); 
procedure  POP(S:in  out  STACK;A:in  out  ATOM) ; 
function  EMPTY (S : STACK)  return  BOOLEAN; 
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package  STACK_ADT  is 

type  ATOM  is  ;  —  can  be  a  value  or  a  record  of  values 

type  STACK  is  private; 


procedure  and  function  declarations  go  here 


private 

MAXSIZE  rconstant  INTEGER  :=  ...;  —  size  depends  on 

implementation 

subtype  POSITION  is  INTEGER  range  0  . .  MAXSIZE; 
type  DATA_ARRAY  is  array (1  ..  MAXSIZE)  of  ATOM; 
type  STACK  is  record 
TOP  rPOSITION; 

DATA  :DATA_ARRAY; 

end  record; 
end  STACK_ADT; 

initial  stack:  PUSH  g:  POP: 


TOP  6 

DATA  a  b  c  d  e  f 

123456  ...  MAX 


TOP  7 

DATA  a  b  c  d  e  f  g 

1  2  3  4  5  6  7  .  .  . 


TOP  6 

DATA  a  b  c  d  e  f 
MAX  123456  . . 
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POINTER-BASED  IMPLEMENTATION  OF  STACK  11-10 

package  STACK_7^T  is 

type  ATOM  is  ;  —  can  be  a  value  or  a  record  of  values 

type  STACK  is  private; 

—  procedure  and  function  declarations  go  here 

private 

type  NODE; 

type  STACK  is  access  NODE; 
type  NODE  is  record 
A  :ATOM; 

NEXT  : STACK; 

end  record; 
end  STACK  ADT; 


initial 

stack 

1  .  1  a 

PUSH  g 

1  .  la 

POP 

1  .  1  a 
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GENERIC  UNITS  11-11 

When  a  program  or  part  of  a  program  is  being  written,  it  is  usually 
advantageous  to  try  to  make  it  as  general  as  possible.  Then,  if  the 
conditions  for  a  program  should  change,  fewer  changes  (or  possibly  none)  will 
be  required  to  enable  the  program  to  work.  Moreover,  similar  programming 
problems  occur  in  many  different  contexts.  If  a  general  solution  has  been 
designed  for  one  problem,  it  can  often  be  used  on  other  problems  later. 

Ada  offers  the  programmer  the  possibility  of  writing  general  programs  using 
generic  units.  Such  a  program  unit  can  be  either  a  subprogram  or  a  package. 

A  generic  unit  is  not  only  one  subprogram  or  one  package,  but  is  a  description 
of  a  whole  family  of  similar  units.  Generic  units  can  be  regarded  as 
generalized  bits  of  a  puzzle  that  can  be  fitted  together  to  develop  a  new 
program. 

The  following  procedure  demands  that  the  two  parameters  have  the  type 
INTEGER  so  it  cannot  be  used  for  swapping  the  values  of,  say,  two  floating 
point  variables . 

procedure  SWAP (NUMBER1,NUMBER2 tin  out  INTEGER)  is 

TEMP  : INTEGER; 

begin 

TEMP  :=  NUMBERl; 

NUMBERl  :=  NUMBER2; 

NUMBER2  :=  TEMP; 

end  SWAP; 
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We  shall  now  rewrite  SWAP  so  that  it  can  be  used  for  all  types  of 
parameter.  It  then  gets  the  new  specification. 

generic  —  specification  must  be  cortpiled  before  body 

type  ELEMENT  is  private; 
procedure  SWAP (A, B: in  out  ELEMENT); 

Between  the  reserved  words  'generic*  and  'procedure'  is  a  list  of  the  format 
generic  parameters.  In  this  case  there  is  only  one  such  parameter,  the  type 
ELEMENT.  The  procedure  must  also  have  a  body: 

procedure  SWAP (A, B: in  out  ELEMENT)  is 
TEMP  : ELEMENT; 

begin 

TEMP  :=  A;  A  :=  B;  B  :=  TEMP; 
end  SWAP; 

This  loo)cs  li)ce  a  perfectly  normal  procedure,  but  its  not.  It  is  a  template 
that  defines  a  family  of  procedures.  In  the  body  of  SWAP,  a  generic  parameter 
ELEMENT  is  used.  SWAP  describes  different  procedures  depending  on  the  value 
of  ELEMENT.  If  ELEMENT  has  the  value  FLOAT,  for  example,  SWAP  describes  a 
procedure  that  can  be  used  to  interchange  the  values  of  two  variables  of  type 
FLOAT.  Thin)c  of  the  word  FLOAT  replacing  all  instances  of  the  word  ELEMENT. 
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If  the  procedure  SWAP  is  to  be  used  in  a  program,  the  program  should  begin: 
with  SWAP; 

So  far  there  is  no  'real'  procedure  SWAP;  there  is  only  a  template.  To  get  a 
procedure,  we  have  to  use  the  teir^late  and  generate  or  create  a  version  of 
SWAP.  A  particular  version  of  a  generic  unit  is  called  an  instance  of  the 
generic  unit  and  is  created  by  making  a  generic  instantiation.  When  an 
instance  of  a  generic  unit  is  created,  the  value  of  the  generic  parameter  has 
to  be  specified:  the  actual  generic  parameters  are  stated.  To  instantiate  a 
procedure  to  interchange  two  numbers  of  the  type  FLOAT,  for  example,  we  make 
the  declaration: 

procedure  SWAP_FLOAT  is  new  SWAP (FLOAT) ; 

Here  FLOAT  is  the  actual  generic  parameter.  Now  we  have  a  true  procedure  that 
can  be  called  in  the  normal  way.  If  the  variables  X  and  Y  have  the  type  FLOAT: 

SWAP_FLOAT (X,  Y) ; 

If  we  also  want  a  procedure  that  can  swap  two  character  variables,  we  can 
instantiate  another  instance  of  the  procedure  SWAP : 

procedure  SWAP_CHAR  is  new  SWAP (CHARACTER) ; 
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GENERIC  PACKAGES  11-14 

It  is  also  possible  to  have  a  generic  package.  To  illustrate  this,  we  shall 
give  a  single  version  of  the  stack  package  discussed  earlier. 


generic 

type  ELEMENT  is  private; 
package  STACK  is 

procedure  PUSH (E: in  ELEMENT); 
procedure  POP (E; out  ELEMENT); 
function  EMPTY  return  BOOLEAN; 
end  STACK; 

package  body  STACK  is 

SIZE  rconstant  :=  100; 

A  :array (1. .SIZE)  of  ELEMENT 

TOP  : NATURAL  :=  0; 


procedure  PUSH (E: in  ELEMENT)  is 
begin 

TOP  :=  TOP  +  1; 

A(TOP)  :=  E; 
end  PUSH; 

procedure  POP (E: out  ELEMENT)  is 
begin 

E  :=  A (TOP) ; 

TOP  :=  TOP  -  1; 
end  POP; 


function  EMPTY  return  BOOLEAN  is 
begin 

return  TOP  =  0; 
end  EMPTY; 


Just  as  with  generic  procedures,  new  instances  can  be  created  as  needed: 
package  INT_STACK  is  new  STACK ( INTEGER) ; 
package  PERS_STACK  is  new  STACK (PERSON); 
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The  final  major  topic  to  be  introduced  is  tasking.  This  has  been  left  to 
the  end,  not  because  it  is  important  or  particularly  difficult,  but  because, 
apart  from  the  interaction  with  exceptions,  it  is  a  fairly  self-contained  part 
of  the  language. 

So  far  we  have  only  considered  sequential  programs  in  which  statements  are 
obeyed  in  order.  In  many  applications,  it  is  convenient  to  write  a  program  as 
several  parallel  activities  which  cooperate  as  necessary.  This  is  particularly 
true  of  programs  which  interact  in  real  time  with  physical  processes  in  the 
real  world;  simulation  programs  (which  mimic  parallel  activities  in  the  real 
world),  and  programs  used  to  exploit  multiprocessor  architectures  directly. 

As  a  sinple  exanple,  consider  a  family  going  shopping  to  buy  ingredients 
for  a  meal.  Suppose  they  need  meat,  salad  and  wine  and  the  purchase  of  these 
items  can  be  done  by  calling  procedures. 

procedure  SHOPPING  is 
begin 

BUY_MEAT; 

BUY_SALAD; 

BUY_WINE/ 
end  SHOPPING 
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However,  the  previous  solution  corresponds  to  the  family  buying  each  item 
in  sequence.  It  would  be  far  more  efficient  for  them  to  split  up,  so  that, 
for  exairple,  mother  buys  the  meat,  the  children  buy  the  salad  and  father  buys 
the  wine.  They  agree  to  meet  again,  perhaps  at  the  car,  when  they  are  done. 

procedure  SHOPPING  is  task  body  GET_WINE  is 

task  GET_SALAD;  -  specification  begin 

BUY_WINE; 

task  body  GET_SALAD  is  —  body  end  GET_WINE/ 

begin 

BUY_SALAD;  begin  —  main  processor  represents 

end  GET_SALAD;  BUy_MEAT;  —  mother  and  calls  BUY_MEAT 

end  SHOPPING; 

task  GET_WINE; 

It  is  important  to  realize  that  the  main  program  is  itself  considered  to  be 
called  by  a  hypothetical  main  task.  We  can  now  trace  the  sequence  of  actions 
when  this  main  task  calls  the  procedure  SHOPPING.  First,  the  tasks  GET_SALAD 
and  GET_WINE  are  declared  and  then,  when  the  main  task  reaches  the  'begin*, 
these  dependent  tasks  are  activated  in  parallel  with  the  main  task.  The 
dependent  tasks  call  their  respective  procedures  and  terminate.  Meanwhile, 
the  main  task  calls  BUy_MEAT,  reaches  the  end  of  SHOPPING,  and  waits  until  all 
dependent  tasks  have  terminated.  (Mom  waiting  for  Dad  and  kids  at  the  car) . 
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In  the  SHOPPING  exan^le,  the  various  tasks  did  not  interact  with  each  other 
once  they  had  been  set  active,  except  that  their  parent  unit  had  to  wait  for 
them  to  terminate.  Generally,  however,  tasks  will  interact  with  each  other 
during  their  lifetime.  In  Ada,  this  is  done  by  a  mechanism  known  as 
rendezvous.  This  is  similar  to  the  human  situation  where  two  people  meet, 
perform  a  trans-action  and  then  go  on  independently. 

A  rendezvous  between  two  tasks  occurs  as  a  consequence  of  one  task  calling 
an  entry  declared  in  another.  An  entry  is  declared  in  a  task  specification  in 
a  similar  way  to  a  procedure  in  a  package  specification.  The  statements  to  be 
obeyed  during  a  rendezvous  are  described  by  corresponding  accept  statements  in 
the  body  of  the  task  containing  the  declaration  of  the  entry. 

As  a  more  abstract  exait^le,  consider  the  problem  of  providing  a  task  to  act 
as  a  single  buffer  between  one  or  more  tasks  producing  items  and  one  or  more 
tasks  consuming  them.  Out  intermediate  task  can  hold  just  one  of  them. 


task  BUFFERING  is 

entry  PUT(X:in  ITEM) ; 
entry  GET(X;out  ITEM) ; 
end  BUFFERING; 


task  body  BUFFERING  is 
V  : ITEM; 

begin 
loop 

accept  PUT(X:in  ITEM)  do  V  :=  X;  end  PUT; 
accept  GET(X:out  ITEM)  do  X  :=  V;  end  GET; 
end  loop; 
end  BUFFERING; 
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The  select  statement  allows  a  task  to  select  from  one  of  several 
rendezvous.  Suppose  that  the  type  ITEM  is  a  record  of  multiple  values.  We 
want  to  ensure  that  the  record  is  not  read  while  it  is  being  written  to.  This 
would  result  in  some  new  values  and  some  old  values.  The  solution  is  to  use  a 
task  rather  than  a  package,  and  entry  calls  rather  than  procedure  calls .  The 
task  will  start  with  an  entry  WRITE;  this  ensures  that  the  first  call  accepted 
is  for  WRITE  so  that  there  is  no  risk  of  a  variable  being  read  before  it  is 
assigned  a  value.  The  task  then  enters  an  endless  loop  containing  a  single 
select  statement.  Each  time  round  the  loop,  the  task  will  accept  a  call  of 
READ  or  WRITE  according  to  the  demands  upon  it.  It  thus  prevents  multiple 
access  to  the  variable  V,  since  it  can  only  deal  with  one  call  at  a  time. 

loop 

task  PROTECTED_VARIABLE  is  select 

entry  READ(X:out  ITEM);  accept  READ(X:out  ITEM)  do 


entry  WRITE(X:in  ITEM) ; 
end; 

task  body  PROTECTED_VARIABLE  is 
V  ; ITEM; 

begin 

accept  WRITE (X: in  ITEM)  do 
V  ;=  X; 
end; 


X  :=  V; 
end; 
or 

accept  WRITE (X: in  ITEM)  do 
V  :=  X; 
end; 

end  select; 
end  loop; 

end  PROTECTED  VARIABLE; 
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MORE  SELECT  STATEMENTS 


12-5 


A  more  conplex  form  of  select  statement  is  illustrated  by  the  classic 
problem  of  the  bounded  buffer.  The  objective  of  the  task  is  to  allow  items  to 
be  added  to  and  removed  from  the  buffer  in  the  first-in  first-out  manner,  but 
to  prevent  the  buffer  from  being  over-filled  or  under-emptied.  This  is  done 
with  a  more  general  form  of  select  statement  which  includes  the  use  of 
guarding  conditions.  Each  branch  of  the  select  statement  commences  with: 
when  (condition)  =>  and  is  then  followed  by  an  accept  statement  and  then  some 
additional  statements . 


task  body  BUFFERING  is 

N  : constant  :=  8;  —  example 

A  :array(l..N)  of  ITEM; 

COUNT  : INTEGER  range  0..N  :=  0; 

begin 
loop 

select 

when  COUNT  <  N  => 

accept  PUT (X: in  ITEM)  do 
A(I)  :=  X; 
end; 


I  :=  I  mod  N  +  1; 

COUNT  :=  COUNT  +  1; 
or 

when  COUNT  >  0  -> 

accept  GET (X rout  ITEM)  do 
X  :=  A(J)  ;X  A(J)  ; 
end; 

J  :=  J  mod  N  +  1; 

COUNT  :=  COUNT  -  1; 
end  select; 
end  loop; 
end  BUFFERING; 


So  the  guarding  conditions  are  conditions  which  have  to  be  true  before  a 
service  can  be  offered. 
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12-6 


If  we  want  to  regulate  the  timing  of  the  tasks,  a  delay  statement  can  be 
used.  The  expression  after  the  word  'delay'  is  of  a  predefined  fixed  point 
type  DURATION  and  gives  the  period  in  seconds. 

delay  3.0;  —  suspends  the  task  executing  the  statement 

—  for  3  seconds 

Delays  can  be  more  easily  expressed  by  using  suitable  constant  declarations. 

SECONDS  : constant  DURATION  :=  1.0;  —  from  the  package 

MINUTES  : constant  DURATION  :=  60.0;  —  CALENDAR 

hours  ;constant  DURATION  :=  3600.0; 

We  can  write,  for  example:  delay  2  *  HOURS  +  40  *  MINUTES; 

Suppose  we  want  to  call  a  procedure  ACTION  at  regular  intervals,  every  five 
minutes  perhaps.  Our  first  attempt  might  be  to  write 

loop 

delay  5  *  MINUTES; 

ACTION; 
end  loop; 
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INTERVALS 


12-7 


loop 

delay  5  *  MINUTES; 

ACTION; 
end  loop; 

This  is  unsatisfactory  for  various  reasons.  First,  we  have  not  taken 
account  of  the  time  to  execution  the  procedure  ACTION  and  the  overhead  of  the 
loop  itself,  and  secondly,  a  delay  statement  sets  a  minimum  delay  only. 
Furthermore,  we  might  get  preempted  by  a  higher  priority  task  at  any  time. So 
we  will  inevitably  get  a  cumulative  timing  drift .  This  can  be  overcome  by 

declare 

use  CALENDAR;  —  predefined  package 

INTERVAL  ; constant  DURATION  :=  5  *  MINUTES 

NEXT_TIME  .-TIME  :=  FIRST_TIME;  —  time  when  ACTION  is  called 

next 

begin 

loop  —  CLOCK  returns  date  and  time 

delay  NEXT_T1ME  -  CLOCK;  —  ACTION  is  delayed  by  the 

ACTION;  —  difference  between  NEXT_TIME 

NEXT_TIME  :=  NEXT_TIME  +  INTERVAL;  —  and  the  current  time 
end  loop; 
end; 
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TERMINATE 


12-8 


A  task  can  become  completed  and  then  terminate  in  various  ways,  as  well  as 
running  into  its  final  end.  In  an  earlier  example,  the  body  of  a  task  was  an 
endless  loop  and  clearly  never  terminated.  This  means  that  it  would  never  be 
possible  to  leave  the  unit  on  which  the  task  was  dependent.  It  is  possible  to 
make  a  task  automatically  terminate  itself  when  it  is  of  no  further  use. 


end; 


task  body  PROTECTED_VARIABLE  is 
V  : ITEM; 

do 

begin 

accept  WRITE (X: in  ITEM)  do  V  :=  X; 

end; 

loop 

select 

accept  READ (X: out  ITEM)  do 
X  :=  V; 


or 


accept  WRITE (X: in  ITEM) 


V 

end; 


:=  X; 


or 


terminate; 
end  select; 
end  loop; 

end  PROTECTED  VARIABLE; 


The  terminate  alternative  is  taken  if  the  unit  on  which  the  task  depends 
has  reached  its  end  and  so  is  completed  and  all  sibling  tasks  and  dependent 
tasks  are  terminated  or  are  similarly  able  to  select  a  terminate  alternative. 
In  such  circumstances,  all  the  tasks  are  of  no  use  since  they  are  the  only 
tasks  that  could  call  their  entries  and  they  are  all  dormant.  Thus  the  whole 
set  automatically  terminates. 
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ABORT  12-9 

Selection  of  a  terminate  alternative  is  classified  as  a  normal  termination. 
The  task  is  under  control  of  the  situation  and  terminates  voluntarily.  At  the 
other  extreme  is  the  abort  statement.  The  abort  statement  unconditionally 
terminates  one  or  more  tasks.  It  consists  of  the  reserved  word  'abort' 
followed  by  a  list  of  task  names.  If  a  task  is  aborted,  then  all  tasks 
dependent  upon  it  or  a  subprogram  or  black  currently  called  by  it  are  also 
aborted. 

The  abort  statement  is  very  disruptive  and  should  only  be  used  in  extreme 
situations.  It  might  be  appropriate  for  a  command  task  to  abort  a  conplete 
subsystem  in  response  to  an  operator  command.  Another  appropriate  use  for  the 
abort  statement  might  be  an  exception  handler.  When  an  exception  is  raised  in 
a  unit,  we  cannot  tidy  up  that  unit  and  propagate  the  exception  on  a  layered 
basis  while  dependent  tasks  are  still  alive  and  so  one  of  the  actions  of 
tidying  up  might  be  to  abort  all  dependent  tasks.  However,  it  is  probably 
always  best  to  attempt  a  controlled  shutdown  and  only  resort  to  the  abort 
statement  as  a  desperate  measure .  Statements  in  the  command  task  might  be 

select 

T. CLOSEDOWN; 

or 

delay  60  *  SECONDS; 
abort  T; 

end  select; 
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APPENDIX  C 


ADA.Y 


The  following  Ada  grammar  for  Ayacc  has  been  ad^ted 
by  David  Taback  and  Deepak  Tolani  from  the  one  distributed 
by  Hetman  Fischer  for  die  use  with  Yacc. 

We  have  made  the  following  modifications  to  the  Grammar. 

1)  We  have  removed  the  C  style  comments. 

2)  We  have  added  the  production 

numeric_literal 

:  REAL.UTERAL 
I  INTEGER_LITERAL 


3)  The  token  names  have  been  converted  to  uppercase  and 
the  name  TOKEN  has  been  appendend  to  them.  Some  of  the 

names  of  the  other  tokens  have  also  been  changed. 

4)  We  replaced  \"  with  in  the  productions. 

5)  We  added  tokens  ERRORl  to  ERROR15  that  was  used  to  interface 
to  an  existing  Ada  lexical  analyzer.  These  tokens  are  not 
used  in  the  productions. 

6)  We  added  more  'errori  productions  to  for  better  error  recovery. 

This  is  the  orginal  header  given  with  the  Yacc  version  of  the 
grammar. 

I  - - 

A  LALR(l)  grammar  for  ANSI  Ada* 

Adapted  for  YACC  (UNIX)  Inputs 


Herman  Fischer 
Litton  Data  Systems 
8000  Woodley  Ave.,  ms  44-30 
Van  Nuys,  CA 

818/902-5139 
HFischer@eclb.aipa 
{cepu.trwrb}  !litvax!fischer 

March  26, 1984 
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A  Contribution  to  the  Public  Domain 
for 

Research,  Development,  and  Training  Purposes  Only 
Any  Corrections  or  Problems  are  to  be  Reported  to  the  Author 


adapted  from 
the  grammar 
by: 

Gerry  Fisher  Philippe  Charles 

-  Computer  Sciences  Corporation  &  Ada  Project 
4045  Hancock  Street  New  York  University 

San  Diego,  CA  92121  251  Mercer  Street 

New  York,  New  York  10012 


-  This  grammar  is  organized  in  the  same  order  as  the  syntax  summary 

-  in  appendix  E  of  the  ANSI  Ada  Reference  Manual.  All  reserved  words 
"  are  vmtten  in  upper  case  letters.  Hie  lexical  categories 

~  numeric_literal,  string_literal,  etc,  are  viewed  as  termini.  The 
-•rules  for  pragmas  as  stated  in  chapter  2,  sections,  have  been 

-  incorporate  in  the  grammar.  Comments  are  include  wherever  we  had 

-  to  deviate  from  the  syntax  given  in  t^pendix  E.  Different  symbols 

-  used  here  (to  comply  with  yacc  requirements)  are  of  note: 

{,something}  is  denoted  ...something.. 

(something)  is  denoted  ..something.. 

[something]  is  denoted  .something. 

-  Constructs  involving 

“  meta  brackets,  e.g.,  ...identifier.,  are  represented  by  a  nonterminal 

-  formed  by  concatenating  the  construct  symbols  ( as  ...identifier.. 

-  in  the  example)  for  which  the  rules  are  given  at  the  end.  When 
-reading  this  grammar,  it  is  important  to  note  that  all  symbols 

-  appearing  in  die  rules  are  separated  by  one  or  more  blanks.  A 
-string  such  as  'identifier_ty^_mark  is  actually  a  single 

-  nonterminal  symbol  defined  at  the  end  of  the  rules.  The  symbol 

-  is  used  to  indicate  that  the  rest  of  the  line  is  a  comment,  just 

-  as  in  yacc  programs. 

-  This  grammar  is  presented  here  in  a  form  suitable  for  input  to  a 

-  yacc  parser  generator,  hhas  been  processed  by  the  Bell  System 

-  in  lex/yacc  combination,  and  tested  against  over  400  ACVC  tests. 

-  ’"Ada  is  a  registered  trade  mark  of  the  Department  of  Defense  (Ada 

-  Joint  Program  Office). 
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%token  ’& . ('  ')' 

%token  ’<’  '=’  ’>■  'I' 


7 


%token  ARROW  DOUBLE_DOT  DOUBLE.STAR  ASSIGNMENT  INEQUALITY 
%token  GREATER_THAN_OR_EQUAL  LESS_THAN_OR_EQUAL 
%token  LEFr_LABEL_BRACKET  RIGHT_LABEL_BRACKET 
%token  BOX 


%token  ABORT.TOKEN  ABS.TOKEN  ACCEPT.TOKEN  ACCESS_TOKEN 
%token  ALL_TOKEN  AND.TOKEN  ARRAY_TOKEN  AT.TOKEN 

%token  BEGIN_TOKEN  BODY_TOKEN 

%tokenCASE_TOKEN  CONSTANT_TOKEN 

%token  DECLARE.TOKEN  DELAY_TOKEN  DELTA_TOKEN  DIGITS.TOKEN  DO_TOKEN 

%token  ELSE_TOKEN  ELSIF_TOKEN  END_TOKEN  ENTRY_TOKEN  EXCEPTION_TOKEN 
%token  EXIT_TOKEN 

%token  FOR.TOKEN  FUNCTION_TOKEN 

%token  GENERIC.TOKEN  GOTO.TOKEN 

%tokenIF_TOKENIN_TOKEN  IS_TOKEN 

%token  LIMITED_TOKEN  LOOP_TOKEN 

%tokenMOD_TOKEN 

%token  NEW_TOKEN  NOT_TOKEN  NULL_TOKEN 

%token  OF.TOKEN  OR_TOKEN  OTHERS_TOKEN  OUT.TOKEN 

%token  PACKAGE.TOKEN  PRAGMA.TOKEN  PRIVATE_TOKEN  PROCEDURE_TOKEN 

%token  RAISE_TOKEN  RANGE.TOKEN  RECORD_TOKEN  REM.TOKEN  RENAMES_TOKEN 
%token  RETURN.TOKEN  REVERSE.TOKEN 

%token  SELECT_TOKEN  SEPARATE_TOKEN  SUBTYPE.TOKEN 

%token  TASK_TOKEN  TERMINATE_TOKEN  THEN.TOKEN  TYPE.TOKEN 


%token  USE.TOKEN 


%token  WHEN.TOKEN  WHILE_TOKEN  WITH_TOKEN 
%token  XOR_TOKEN 


%token  IDENTIFIER 

%token  INTEGER_LITERAL  REAL.UTERAL 


%token  CHARACTER.LITERAL  STRING_LITERAL 


%token  ERRORl  ERROR2  ERRORS  ERROR4  ERRORS  ERROR6  ERROR?  ERROR8 
%token  ERROR9  ERRORIO  ERRORl  1  ERROR12  ERROR13  ERROR14  ERROR15 

%start  compilation 

{ 

subtype  yystype  is  integer, 

} 


%% 
prag  : 

PRAGMA_TOKEN  IDENTIHER  .arg_ascs 
{assign_association(yy.iule_id);} ; 

arg_asc  : 

expr 

I  IDENTIFIER  ARROW  expr  {assign_association(yy.rule_id);} ; 

***  Added  - 

numeric_literal 

:  REAL.UTERAL 
I  INTEGER.LITERAL 
{assign_association(yy.rule_id);} ; 

basic_d  : 

object_d 

I  ty_d  I  subty_d 

I  subprg_d  I  pkg_d 

I  task_d  I  gen_d 

I  excpm_d  I  gen_inst 

I  renaniing_d  I  number_d 
I  error  {assign_association(yy.rule_id);) ; 

object_d  : 

idents subty_ind  ,_ASN_expr. 

I  idents CONSTANT.TOKEN  subty.ind  ._ASN_expr. 

I  idents c_arr_def  ,_ASN_expr, 

I  idents CONSTANT.TOKEN  c_arr_def  ._ASN_expr. 
{assign_association(yy.rule_id);) ; 

number_d  : 

idents CONSTANT.TOKEN  ASSIGNMENT  expr 
{assign_association(yy.rule_id);) ; 

idents  :  IDENTIFIER  ...ident.. 

{assign_association(yy.rule_id);} ; 

ty_d  : 
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fuU_ty_d 

I  incomplete_ty_d 

I  priv_ty_d  {assign_association(yyjule_id);} ; 

full_ty_d  : 

TYPE.TOKEN  IDENTIFIER  IS_TOKEN  ty_def 
I  TYPE.TOKEN  IDENTIFIER  discr_part  IS.TOKEN  ty_def ' 
{assign_association(yy.rule_id);} ; 

ty_def  : 

enum_ty_def  I  integer_ty_def 

I  ieal_ty_def  I  array_ty_def 

I  rec_ty_def  I  access_ty_dBf 

I  derived_ty_def  {assign_association(yy.rule_id);) ; 

subty_d  : 

SUBTYPE.TOKEN  IDENTIFIER  IS_TOKEN  subty.ind 
{assign_association(yy.rule_id);} ; 

subty_ind  :  ty_mk  .constn. 

{assign_association(yy.rule_id);} ; 

ty_mk  :  expanded_n  {assign_association(yy.nile_id);} ; 

constrt  : 

mg_c 

I  fltg4)oint_c  I  fixed_point_c 

I  aggr  {assign_association(yy.rule_id);} ; 

derived_ty_def  :  NEW_TOKEN  subty_ind 
(assign_associarion(yy.rule_id);} ; 

mg_c  :  RANGE_TOKENmg  {assign_association(yy.rule_id);} ; 

mg  : 

name 

I  sim_expr  DOUBLE_DOT  sim_expr 

{assign_association(yy.ruIe_id);] ; 

enum_ty_def 

'(’  enum_lit_spec 

...enum_lit_spec..  ’)’ 
{assign_associanon(yy.rule_id);) ; 

eniim_lit_spec  :  enum_lit  {assign_associarion(yy,mlejd);) ; 

enum.lit  :  IDENTIFIER  I  CH\RACTER_LITERAL 
{assign_association(yy.rule_id);} ; 

integer_ty_def  :  mg_c  {assign_association(yy.njle_id);} ; 

real_ty_def 
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fltg  point  c  I  fixed_point_c  {assign_association(yy.rule_id);} ; 


fltg_point_c  : 

fUg_accuracy_def  jng_c.  {assign_association(yy.rule_id);} ; 
fltg_accuracy_def  : 

DIG1TS_T0KEN  sim_expr  {assign_associarion(yy.ruleJd);} ; 
fixed_point_c  : 

fixed_accuracy_def  .nig_c.  {assign_association(yy.Tule_id);} ; 
fixed_accuracy_def 

DELTA_TOKEN  siin_expr  {assign_association(yy.rule_id);) ; 
anay_ty_def 

uncnstmd_array_def  I  c_arr_def 

{assign_association(yy.rule_id);} ; 

uncnstmd_array_def 

ARRAY.TOKEN  ’(’  idx_subty_def  ...idx_subty_def.. ')’  OF_TOKEN 

subty_ind 

{assign_association(yy.rule_id);} ; 
c_arr_def  : 

ARRAY.TOKEN  idx.c  OF.TOKEN  subty.ind 
{assign_association(yy.rule_id);) ; 

idx.subty.def  :  name  RANGE.TOKEN  BOX 
{assign_association(yy.rule_id);) ; 

idx_c  :  ’(' dscr_mg  ...dscr_mg.. ')' {assign_association(yy.rule_id);)  ; 

dscr_mg  : 

mg 

I  namemg_c  {assign_association(yy.rule_id);} ; 

rec_ty_def  : 

RECORD_TOKEN 

cmpons 

END_TOKEN  RECORD_TOKEN  {assign_association(yyjTile_id);) 
cmpons 

..prag..  ..cmpon_d..  cmpon_d  ..prag.. 

I  ..prag..  ..cmpon_d..  variant_part  ..prag.. 

I  ..prag..  NULL_TOKEN  ..prag.. 

{assign_association(yy.rule_id);) ; 

cmpon_d  : 

idents  cmpon_subty_def  ._ASN_expr. 
{assign_association(yy.iule_id);) ; 

cmpon_subty_def  :  subty_ind  {assign_association(yy.nile_id);)  ; 
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discr_part  : 

'('  discr_spec  ...discr_spec.. ')' 

{assign_association(yy.rule_id);) ; 

discr_s^  : 

idents ty_ink  ._ASN_expr.  {assign_association(yy.rule_id);} ; 
vaiiant_part  : 

CASE.TOKEN  sim_n  IS.TOKEN 
..prag..  variant  ..variant.. 

END_TOKEN  CASE_TOKEN {assign_association(yy.rule_id);} ; 
variant  : 

WHEN_TOKEN  choice  ..or_choice..  ARROW 
cmpons  {assign_association(yy.rule_id);} ; 

choice  :sim_expr 
I  name  mg_c 

I  sim_expr  DOlJBLE_DOT  sim_expr 
I  OTHERS_TOKEN 
I  error 

{assign_association(yy.rule_id);} ; 

access_ty_def  :  ACCESS_TOKENsubty_ind  {assign_association(yy.rule_id);} ; 

incomplete  ty  d  : 

TYPE.TOKEN  IDENTMER 
I  TYPE.TOKEN  IDENTMER  disCT_part 
{assign_association(yy.rule_id);) ; 

decl_part  : 

..basic_decl_item.. 

I  ..basic_decl_item..  body  ..later_decl_item.. 

{assign_association(yy.rule_id);) ; 

basic_decl_item 

basic_d 

I  rep_cl  I  use_cl  {assign_association(yy.mle_id);) ; 

later_decl_item  :  body 
I  subprg_d  I  pkg_d 

I  task_d  I  gen_d 

I  use_cl  I  gen_inst 

{assign_association(yy.rule_id);} ; 

body  :  proper_body  I  body_stub  {assign_association(yy.ruIe_id);} ; 
proper_body  ; 

subprg_body  I  pkg_body  I  task_body 
{assign_association(yy.rule_id);) ; 
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name  :  sim_n 

I  CHARACrER_LITERAL  I  op_symbol 
I  idxed_cmpon 

I  selected_cmpon  I  attribute  {assign_associanon(yy.iuleJd);} ; 

sim_n  :  IDENTIFIER  {assign_association(yy.rule_id);} ; 

prefix  :  name  {assign_association(yy.rule_id);) ; 
idxed_cmpon  : 

prefix  aggr  {assign_association(yy.rule_id);) ; 
selected_cmpon  ;  prefix selector  ; 
selector  •  sim  n 

I  CHARACTER.LITERAL  I  op_symbol  I  ALL.TOKEN 
{assign_association(yy.rule_id);) ; 

attribute  :  prefix attribute_designator 
{assign_association(yy.rule_id);} ; 

attribute.designator : 
sim_n 

I  DIGITS.TOKEN 

I  DELTA.TOKEN 

I  RANGE_TOKEN  {assign_association(yy.rule_id);) ; 

aggr  : 

'('  cmpon.asc  ...cmpon_asc.. ')'  {assign_association(yy.mleJd);}  ; 

cmpon_asc  : 
expr 

I  choice  ..or_choice..  ARROW  expr 

I  sim_expr  DOUBLE_DOT  sim_expr 

I  namemg_c  {assign_association(yy.rule_id);] ; 

expr  ; 

rel..AND_rel..  I  reL.AND _ ^THEN _ ^rel.. 

I  rel.OR _ ^rel..  I  rel.OR _ ELSE _ ^rel.. 

I  reI..XOR _ ^rel..  {assign_association(yy.rule_id);} ; 

rel  ; 

sim_expr  .relal_op _ sim_expr. 

I  sim_expr.NOT.IN _ ^mg_or_sim_expr.NOT.IN _ ^ty_nik 

{assign_association(yy.tule_id);} ; 

sim_expr  : 

.unary_add_op.term..binary_add_op_term.. 
{assign_association(yy.rule_id);) ; 

term  :  factor. .mult_op_factor..  {assign_association(yy.rule_id);)  ; 
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factor  :  pri._EXP _ ^pri.  I  ABS_TOKENpri  I  NOT.TOKENpri 

{assign_association(yy.rule_id);} ; 

pri  : 

numeric_literal  I  NULL_TOKEN 
I  allocator  I  qualified_expr 

i  name 

I  aggr  {assign_association(yyjuIe_id);} ; 

relal_op  :  '=' 

I  INEQUALITY 
I  ’<’ 

I  LESS_THAN_OR_EQUAL 
I  ’>' 

I  GREATER_THAN_OR_EQUAL  {assign_association(yy.mle_id);} 

binary_add_op  :  '+’  I  I 

{assign_association(yy.ruIe_id);} ; 

unary_add_op  :  '+'  I  {assign_association(yy.iule_id);)  ; 

mult.op  :  I  7  I  MOD_TOKEN  I  REM_TOKEN 
{assign_association(yy.rule_id);} ; 

qualified_expr  ; 

ty_ndcaggr_or_ty_mkPexprP_  {assign_association(yy.nile_id);} ; 
allocator  : 

NEW_TOKENty_mk 
I  NEW.TOKEN  ty_mk  aggr 

I  NEW_TOKEN  ty_mk aggr  {assign_association(yy.rule_id);) ; 

seq_of_stmts  :  ..prag..  stmt  ..stmt..  {  null;  }  —  Because  of  bug 
{assign_association(yy.rule_id);) ; 

stmt  : 

..label..  sim_stmt  I  ..label..  compound_stmt 
I  error  {assign_association(yy.rule_id);} ; 

sim_stmt  :  null_stmt 
I  assignment_stmt  I  exit_stmt 

I  retum_stmt  I  goto_stmt 

I  delay_stmt  I  abort_stmt 

I  raise_stmt  I  code_stmt 

I  name';'  {assign_association(yy.iule_id);} ; 

compound.stmt  : 

if_stmt  I  case_stmt 
I  loop_stmt  I  block_stmt 

I  accept_stmt  I  selea_stmt  {assign_association(yy.mle_id);) ; 

label  :  LEFT_LABEL_BRACKET  sim_n  RIGHT_LABEL_BRACKET 


{assign_association(yy.iule_id);} ; 

null_stmt  :  NULLJTOKEN {assign_association(yy.ruIe_id);} ; 

assignment.stmt  ; 

name  ASSIGNMENT  expr 
{assign_association(yy.nile_id);} ; 

if_stmt  : 

IF.TOKEN  cond  THEN.TOKEN 
seq_of_stmts 

..ELSIE _ ^cond _ ^THEN _ seq_of_stmts.. 

.ELSE_seq_of_stmts. 

END_TOKEN  IF_TOKEN {assign_association(yy.nile_id);} 
cond  :  expr  {assign_association(yy.iule_id);} ; 
case_stmt  : 

CASE.TOKEN  expr  IS_TOKEN 
case_stmt_alt..case_stmt_alt.. 

END.TOKEN  CASE.TOKEN 
{assign_association(yy.Tule_id);} ; 

case_stmt_alt  : 

WHEN_TOKEN  choice  ..or_choice..  ARROW 
seq_of_stmts  {assign_association(yy.ruleJd);} ; 


loop_stmt  : 

.sim_nC. 

.iteration_scheme.  LOOP_TOKEN 
seq_of_stmts 

END.TOKEN  LOOP.TOKEN  .sim_n. 
{assign_association(yy.rule_id);} ; 

iteration_sdieme 

:  WHILE_TOKEN  cond 
IWHILE.TOKENerror 
I  FOR_TOKEN  loop_pnn_spec 
IFOR.TOKENerror 
{assign_association(yy.rule_id);) ; 

loop  prm_spec  : 

IDENTIFIER  IN.TOKEN  .REVERSE.  dscr_mg 
{assign_association(yy.rule_id);) ; 

bIock_stmt  : 

.sim_nC. 

.DECLARE_decl_part. 

BEGIN_TOKEN 

seq_of_stmts 

.EXCEPTION _ ^excpm_handler..excptn_handler... 

END_TOKEN  .sim_n. (assign_associarion(yy.rule_id);)  ; 
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exit_stmt 

EXIT.TOKEN  .expanded_n.  .WHEN_cond. 

{assign_association(yy.Tule_id);} ; 

retum_stmt  ;  RETURN_TOKEN  .expr. (assign_association(yy.Tule_id);}  ; 
goto_stmt  :  GOTO_TOKEN  expanded.!! {assign_association(yy.rule_id);) ; 
subprg_d  :  subprg_spec {assign_association(yy.rule_id);} ; 
subprg_spec  : 

PROCEDURE.TOKEN  IDENTIFIER  .finl  j)an. 

I  FUNCTION.TOKEN  designator  .ftnl jjart.  RETURN.TOKEN  ty.mk 
{assign_association(yy.rule_id);} ; 

designator  :  IDENTIFIER  1  op.symbol  {assign_association(yy.rule_id);) ; 
op.symbol  :  STRING.LITERAL  {assign_association(yy.rule_id);]  ; 
ftnl_part  : 

'('prm.spec  .._.prm_spec., ')'  {assign_association(yy.rule_id);}  ; 
prm.spec  : 

idents mode  ty_mk  ._ASN_expr.  {assign_association(yy.rule_id);)  ; 

mode  :  .IN.  I  IN.TOKEN  OUT.TOKEN  I  OUT.TOKEN 
(assign_association(yy.rule_id);} ; 

subprg_body  : 

subprg_spec  IS.TOKEN 
.decLpan. 

BEGIN.TOKEN 

seq_of_stmts 

.EXCEPTION _ ^exq7tn_handler..excptn_handler... 

END.TOKEN  .designator. {assign_association(yy.ruIe_id);}  ; 

pkg_d  :  pkg_spec {assign_association(yy.rule_id);}  ; 

pkg_spec  : 

PACKAGE.TOKEN  IDENTIFIER  IS.TOKEN 
..basic_decl_item.. 

.PRIVATE..basic_decl_item... 

END.TOKEN  .sim_n.  {assign_association(yy.rule_id);} ; 
plcg_^bo(Iy  * 

PACKAGE.TOKEN  BODY.TOKEN  sim_n  IS.TOKEN 
.decLpart. 

.BEGIN_seq_of_stmts.EXCEPTION _ excptn_handler..excpm_handler... 

END.TOKEN  .sim_n.  V  {assign_association(yy.rule_id);)  ; 

priv_ty_d  : 
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TYPE.TOKEN  IDENTIFIER  IS.TOKEN  .LIMITED.  PRIVATE.TOKEN  ' 

I  TYPE.TOKEN  IDENTIFIER  discr.pait  IS_TOKEN  .LIMITED.  PRIVATE_TOKEN 
{assign_association(yy.rule_id);} ; 

use_cl  :  USE_TOKEN  expanded_n  ...expanded_n.. 

{assign_association(yy.rule_id);} ; 

renamingjd  : 

idents  ty_mk  RENAMES.TOKEN  name 
I  idents  EXCEPTION_TOKEN  RENAMES_TOKEN  expanded_n 
I  PACKAGE_TOKEN  IDENTIFIER  RENAMES.TOKEN  expanded_n 

I  subprg_spec  RENAMES_TOKEN  name 
{assign_association(yy.rule_id);} ; 

task_d  :  task_spec';'  {assign_association(yy.rule_id);} ; 

task_spec  : 

TASK_TOKEN  .TYPE.  IDENTIFIER 
.  IS .  .ent_d_.  .rep_cl_END.sim_n . 

{assign_association(yy.rule_id);} ; 

tflcif  body  • 

TASK_TOKEN  BODY_TOKEN  sim_n  IS_TOKEN 
.decLpart. 

BEGIN_TOKEN 

seq_of_stmts 

.EXCEPTION _ ^excpm_handler..excptn_handler... 

END_TOKEN  .sim_n. {assign_association(yy.rule_id);}  ; 

ent_d  : 

ENTRY.TOKEN  IDENTIFIER  .fml_part. 

I  ENTRY_TOKEN  IDENTIFIER  ’(’  dscr.mg  ’)'  iml.part.  V 
{assign_association(yy.rule_id);) ; 

ent_call_stmt  : 

..prag..  name  {assign_associadon(yy.nile_id);] ; 
accept_stmt  ; 

ACCEPT_TOKEN  sim_n  .Pent_idx_P..fml_part. 

.DO_seq_of_stmts _ END.sim_n.. 

{assign_association(yy.rule_kI);) ; 

entjdx  :  expr  {assign_association(yy.rule_id);} ; 

delay_stmt  :  DELA Y_TOKEN  sim_expr {assign_association(yy.rule_id);} ; 

select_stmt  :  selec_wait 

I  condal_ent_call  I  timed_ent_call  {assign_associarion(yy.mIe_id);) ; 

selec_wait  : 

SELECT.TOKEN 

selea_alt 
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..OR _ ^select_alt.. 

.ELSE_seq_of_stmts. 

END_TOKEN  SELECT_TOKEN {assign_associanon(yy.rule_id);)  ; 
select_alt  ; 

.WHEN_con(lARRO W.selec_wait_alt  { assign_association(yy.rule_id); } 
selec_wait_alt  :  accept_alt 

I  delay_alt  I  terminaie_alt  {assign_assocMttion(yy.nile_id);) ; 
accept_alt  : 

accept_stmt.seq_of_stmts.  {assign_association(yy.rule_id);) ; 
delay_alt  : 

delay_stmt.seq_of_stmts.  {assign_association(yy.ruIe_id);) ; 

tenranate_alt  :  TERM_stmt  {assign_association(yyjule_id);} ; 

condal_ent_call 

SELECT.TOKEN 

ent_call_stmt 

.seq_of_stmts. 

ELSE.TOKEN 

seq_of_stmts 

END_TOKEN  SELECT_TOKEN {assign_association(yy.rule_id);}  ; 

timed_«it_call  : 

SELECT.TOKEN 

eni_call_stint 

.seq_of_stmts. 

OR.TOKEN 

delay_alt 

END_TOKEN  SELECT_TOKEN {assign_association(yy.rule_id);} ; 

abort_stmt  :  ABORT_TOKEN  name  ...name.. 

{assign_association(yy.rule_id);) ; 

compilation  :  ..compilation_unit..  {assign_association(yy.rule_id);)  ; 

compilation_unit  : 

context_cl  library_unit 

I  context_clsecondaiy_unit  {assign_association(yy.rule_id);} ; 

library_unit  : 

subprg_d  I  pkg_d 

I  gen_d  I  gen_inst 

I  subprg_b^y  (assign_association(yy.ruIe_id);} ; 

seconda:ty_unit  : 

library_unit_body  I  subunit  {assign_association(yy.rule_id);} ; 
libraiy_unit_body  : 


pkg_body_or_subprg_body  {assign_associanon(yy.rule_id);} ; 

context_cl  ;  ,.with_cl..use_cL...  {assign_association(yy.rule_id);}  ; 

with_cl  :  WITH_TOKEN  sim_n  ...sini_n.. 

{assign_association(yy.ruleJd);} ; 

body_stub  ; 

subprespec  IS_TOKEN  SEPARATE.TOKEN 
I  PACKAGE_TOKEN  BODY.TOKEN  siin_n  IS_TOKEN  SEPARATE.TOKEN 
I  TASK_TOKENBODY_TOKENsim_n  IS.TOKEN  SEPARATE_TOKEN 
{assign_association(yy.rule_id);l ; 

subunit  :  SEPARATE_TOKEN '('  expanded_n  ’)'  proper_body 
{assign_association(yy.rule_id);] ; 

excptn_d  ;  idents EXCEPTION_TOKEN 
{assign_association(yy.nileJd);} ; 

exqptn.handler  : 

WHEN_TOKEN  excptn_choice  ..or_exq)tn_choice..  ARROW 
seq_of_stmts  {assign_association(yy.nile_id);} ; 

exq)tn_choice  ;  expanded_n  I  OTHERS_TOKEN 
{assign_association(yy.ruleJd);} ; 

raise_stmt  :  RAISE_TOKEN  .expanded_n. {assign_association(yy.ruleJd);}  ; 
gen_d  ;  gen_spec';'  {assign_association(yyjule_id);} ; 
gen_spec  : 

gen_finl_part  subprg_spec 

I  gen_fml_part  pk^spec  {assign_association(yy.rule_id);} ; 

gen_fml4)ait  :  GENERIC_TOKEN  ..gen_prm_d.. 

{assign_association(yy.rule_id);} ; 

gen_pnn_d  : 

idents  .IN.OUT..  ty_mk  ._ASN_expr. 

I  TYPE_TOKEN  IDENTIFIER  IS_TOKEN  gen_ty_def 
I  priv_ty_d 

I  Wrra.TOKEN  subprg_spec  .IS_BOX_. 

{assign_association(yy.nile_id);} ; 

gen_ty_def  ; 

’('  BOX  7  I  RANGE.TOKEN  BOX  I  DIGITS_TOKEN  BOX  I  DELTA.TOKEN  BOX 
I  arTay_ty_def  I  access_ty_def 

{assign_association(yy.rule_id);) ; 

gen_inst  : 

PACKAGE_TOKEN  IDENTIFIER  IS_TOKEN 
NEW_TOKEN  expanded_n  .gen_act_pait. 
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I  PROCEDURE_ident_IS_ 

NEW_TOKEN  expanded_n  .gen_act_part. 

I  FUNCnON.TOKEN  designator  IS_TOKEN 
NEW_TOKEN  expanded_n  .gen_act_part. 
{assign_association(yy.rule_id);} ; 

gen_act_pan  : 

'('  gen_asc  ...gen_asc.,  ’)' 

{assign_association(yy.rule_id);) ; 

gen_asc  : 

.gen_fml_pnnARROW.gen_act_prm  {assign_association(yy.rule_id);]  ; 
gen_finl_pnn  : 

sim_n  I  op_symbol  {assign_association(yy.rule_id);}  ; 
gen_act_pnn  : 

expr_or_name_or_subprg_n_or_ent_n_or_ty_mk 
{assign_association(yy.rule_id);} ; 

rep_cl  : 

ty_rep_cl  I  address_cl  {assign_association(yy.Tule_id);) ; 

ty_rep_cl  ;  length_cl 
I  enum_rep_cl 

I  rec_iep_cl  {assign_association(yy.role_id);) ; 

length.cl  :  FOR.TOKEN  attribute  USE.TOKEN  sim_expr  V 
{assign_association(yy.rule_id);} ; 

enum_iep_cl  : 

FOR_ty_sim_n_USE_  aggr {assign_association(yy.rule_id);} ; 

iec_rep_cl  : 

FOR_ty_sim_n _ USE_ 

RECORD.TOKEN  .algt_cl. 

.,cmpon_cl.. 

END_TOKEN  RECORD_TOKEN { assign_association(yy .rulejd); } 

algt.cl  :  AT.TOKEN  MOD_TOKEN  sim.expr 
{assign_association(yy.rule_id);} ; 

cmpon_cl  : 

name  AT_TOKEN  sim_expr  RANGE_TOKEN  mg 
{assign_association(yy.mle_id);} ; 

address_cl  :  FOR_TOKEN  sim_n  USE.TOKEN  AT_TOKEN  sim_expr 
{assign_association(yy. rulejd);} ; 

code_stmt  :  ty_mk_rec_aggr {assign_association(yy .rulejd); } ; 

..prag..  : 
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I  ..prag..prag  {assign_association(yy.rule_id);) ; 


.arg_ascs : 

I  '('  arg_ascs ')’  {assign_association(yy.nile_id);}  ; 

arrases ; 

arg_asc 

I  arg_ascs arg_asc  {assign_association(yy.iuIe_id);} ; 
._ASN_expr.  : 

I  ASSIGNMENT  expr  {assign_association(yy.rule_id);} ; 
...idem..  : 

1  ...idem.. IDENTIFIER  {assign_association(yy.ruIe_id);)  ; 

.constrt.  : 

I  consm  {assign_association(yy.rale_id);) ; 

expanded_n  : 

IDENTIFIER 

I  expanded_n IDENTIFIER  {assign_association(yy.mle_id);} ; 

...enum_lit_spec..  : 

I  ,..enum_lit_spec.. 

enum_Iit_spec  {assign_association(yy.nile_id);} ; 

.mg_c.  : 

I  mg_c  {assign_association(yy.nile_id);) ; 

...idx_subty_def..  : 

1  ...idx_subty_def.. idx_subty_def 
{assign_association(yy.rule_id);) ; 

...dscr_mg..  : 

I  ...dscr_mg.. dscr_mg  (assign_association(yy.nileJd);}  ; 
..cmpon_d..  : 

I  ..cmpon_d..  cmpon_d  ..prag..  {assign_association(yy.rule_id);) 
...discr_spec..  : 

I  ...discr_spec.. discr_spec  {assign_association(yy.rule_id);}  ; 
..variant..  ; 

I  ..variant.,  variant  {assign_association(yy.rule_id);) ; 

..or_choice,.  : 

1  ..or_choice..  T  choice  {assign_association(yy.rule_id);) ; 

..basic_decl_item.. 

..prag.. 

I  ..basic_decl_item..  basic_decl_item  ..prag.. 

{assign_association(yy.rule_id);) ; 
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..later_(iecl_item..  : 

..prag.. 

I  ..later_decl_itein..  later_decl_item  ..prag.. 

{assign_association(yy.rule_id);} ; 

...cmpon_asc..  : 

I  ...cmpon_asc.. cmpon_asc  {assign_association(yy.iule_id);}  ; 

rel..AND_rel..  : 

relAND_TOKENiel 

I  rel..AND_rel..  AND_TOKEN  rcl  {assign_association(yy.rule_id);} ; 

rel..OR _ ^rel..  : 

relOR.TOKENrel 

I  reL.OR _ ^rel..  OR_TOKEN  rel  {assign_association(yyjule_id);} ; 

rel..XOR_rel..  : 
lel 

I  ..XOR _ lel.,  {assign_association(yy.nileJd);) ; 

..XOR _ ^rel..  : 

relXOR.TOKENrel 

I  ..XOR _ ^rel..  XOR_TOKEN  rel  {assign_associanon(yy.rule_id);} ; 

rel..AND_THEN_rel..  : 

rel  AND.TOKEN  THEN.TOKEN  rel 

I  rel..AND_THEN_rel..  AND.TOKEN  THEN.TOKEN  rel 

{assign_association(yy.rule_id);} ; 

reL.OR _ ELSE _ ^rel..  : 

rcl  OR.TOKEN  ELSE_TOKEN  rcl 

I  rcl..OR_ELSE_rcl..  OR.TOKEN  ELSE_TOKEN  rcl 

{assign_association(yy.rule_id);} ; 

.rclal_op_sim_expr.  : 

I  rclal_op  sim_expr  {assign_association(yyjule_id);) ; 

sim_expr.NOT.IN _ mg_or_sini_expr.NOT.IN_ty_ink  : 

sim_expr  .NOT.  IN_TOKEN  mg  {assign_association(yy.rule_id);) ; 

.NOT.  : 

I  NOT_TOKEN  {assign_association(yy.rule_id);} ; 

.unary_add_op.tenn..binary_add_op_tenn..  : 
term 

I  unary_add_op  term 

I  .iinary_add_op.tenn..bin^_add_op_teim.. 

binaiy_add_op  term  {assign_association(yy.rule_id);}  ; 

factor..mult_op _ factor..  : 

factor 
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I  factor.,mult_op__factor..  mult_op  factor 

{assign_association(yy.rule_id);} ; 

■  EXP  pri.  : 

I  DOUBLE_STARpri  {assign_associarion(yy.rule_id);) ; 

ty_inkaggr_or_iy_mkPexprP_  : 

prefix {assign_association(yy.rule_id);) ; 

..stmt..  : 

..prag.. 

I  ..stmt.,  stmt  ..prag..  {assign_association(yy.mle_id);}  ; 

..label..  ; 

I  ..label.,  label  (assign_association(yy.rule_id);} ; 

..ELSIF _ cond _ ^THEN_seq_of_stmts..  : 

I  ..ELSIF _ ^cond _ THEN _ ^seq_of_stmts.. 

ELSIF_TOKEN  cond  THEN.TOKEN 
seq_of_stmts  {assign_association(yy.rule_id);} ; 

.ELSE_seq_of_stmts.  : 

1  ELSE.TOKEN 

seq_of_stmts  {assign_association(yy.rule_id);} ; 

case_stmt_alt..case_stmt_alt.. : 

..prag.. 

case_stmt_alt 

..case_stmt_alt..  {assign_association(yy.rale_id);} ; 
..case_stmt_alt.. 

I  ..case_stmt_alt..  case_stmt_alt  {assign_association(yy.rule_id);) ; 
.sim_nC.  : 

I  sim_n {assign_association(yy.rule_id);} ; 

.sim_n. ; 

I  sim_n  {assign_association(yy.rule_id);} ; 

.iteration_scheme.  : 

I  iteration_scheme  {assign_association(yyjrule_id);) ; 

.REVERSE. : 

I  REVERSE_TOKEN  {assign_association(yyjule_id);} ; 

.DECLARE_decl_pait. 

I  DECLARE.TOKEN 

decl_part  {assign_association(yy.Tule_id);} ; 

.EXCEPTION_excptn_handler.  .excptn_handler... : 

I  EXCEPTION.TOKEN 

..prag..  excpm_handlers  {assign_association(yy.rule_id);} ; 
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exq)tn_handlers 

exqmi.handler 

I  exq)tn_handlers  exq)tn_handler  {assign_association(yy.nile_id);)  ; 

.expanded.!!.  : 

I  expanded.n  {assign_associarion(yy.rule_id);} ; 

.WHEN_cond.  : 

I  WHEN.TOKEN  cond  {assign_association(yy.rule_id);) ; 
.expr.  ; 

I  expr  {a.ssign_association(yy.rule_id);} ; 

.finl_part.  : 

I  ftnl_pait  (assign_associarion(yy.iule_id);} ; 

.._.prm_spec..  ; 

I  .._.pnn_spec.. pnn.spec  {assign_association(yy.rule_id);)  ; 

.IN.  : 

I  IN.TOKEN  ; 

.decLpart.  :  decLpart  {assign_association(yy.iule_id);} ; 
.designator.  : 

I  designator  {assign_association(yy.rule_id);} ; 

.PRIVATE..basic_decl_item... 

I  PRIVATE.TOKEN 

..basic_decl_itein..  {assign_association(yy.rule_id);} ; 

.BEGIN_seq_of_stnits.EXCEPnON_excptn_handler.  .excptn.handler. . . 

I  BEGIN.TOKEN 

seq_of_stmts 

.EXCEPnON_excptn_handler..excptn_handler... 

{ assign_association(yy julejd); }  ; 

.LIMl’I'ED.  : 

I  LIMTTED.TOKEN  {assign_association(yyjule_id);) ; 

...expanded.n..  : 

I  ,..expanded_n.. expanded.n  {assign_association(yy.njleJd);}  ; 
.TYPE. 

I  TYPE.TOKEN  {assign_association(yy.rule_id);} ; 

.IS..ent_d_..Tep_cl_END.sim_n.  : 

I  IS.TOKEN 

..ent_d.. 

..rep_cl.. 
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END_TOKEN  .sim_n.  {assign_association(yy.rule_id);] 

..ent_d..  : 

-prag.. 

I  ..ent_d..  ent_d  ..prag..  {assign_association(yy.rule_id);} ; 

..rep_cl..  : 

I  ..rep_cl..  rep_cl  ..prag..  {assign_association(yy.rule_id);)  ; 

.Pent_idx_P..fml_part.  : 

.finl_pan. 

I  ’(' entjdx ')' .ftnLpart.  {assign_association(yy.Tule_id);}  ; 

.DO _ ^seq_of_stmts_END.siin_n..  ; 

1  DO_TOKEN 

seq_of_stmts 

END_TOKEN  .sim_n.  {assign_association(yy.rule_id);) ; 

..OR _ ^select_alt..  : 

I  ..OR _ select_alt..  OR_TOKEN  select_alt 

{assign_association(yy.iule_id);) ; 

.WHEN_condARROW.selec_wait_alt  : 
selec_wait_alt 

I  WHEN_TOKEN  cond  ARROW  selec_wait_alt 

{assign_association(yy.rule_id);} ; 

accept_stint.seq_of_stints.  : 

..prag..  accept_stmt  .seq_of_stmts. 
{assign_association(yy.rule_id);) ; 

delay_stmt.seq_of_stmts.  : 

..prag..  delay_stmt  .seq_of_stmts. 
{assign_association(yy.rule_id);) ; 

TERM.stmt  :  ..prag..  TERMINATE_TOKEN  ..prag.. 
{assign_association(yy.rule_id);} ; 

.seq_of_stims.  : 

..prag.. 

I  seq_of_stiiits  {assign_association(yy.rule_id);} ; 

...name.. 

I  ...name.. name  {assign_association(yy.rule_id);} ; 

..compiIation_unit..  : 

..prag.. 

I  ..compilation_unit..  compiIation_unit  ..prag.. 

{assi^_association(yy.rule_id);} ; 

pkg_body_or_subprg_body  :  pkg_body 
{assign_association(yy.rule_id);} ; 
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..with_cl..use_cL...  : 

I  ..with_cl..use_cl....  with_cl  use_cls 

{assign_association(yy.ruIe_id);} ; 

use_cls  : 

..prag.. 

I  use_cls  use_cl  ..prag.. 

{assign_association(yy.rule_id);} ; 

I  ...sim_n.. sim_n  {assign_association(yy.nile_id);)  ; 

..or_excptn_choice.. : 

I  ..or_exq)tn_choice..  T  excptn_choice 
(assi^_association(yy.rule_id);} ; 

..gen_prm_d..  : 

I  ..gen_pnn_d..  gen_prm_d  {assign_association(yy.rule_id);)  ; 

.IN.OUT..  : 

.IN. 

I  IN_TOKEN  OUT_TOKEN  {assign_association(yy.rule_id);) ; 

,IS„BOX_. 

I  IS.TOKENname 

I  IS.TOKEN  BOX ; 

PROCEDURE_ident_IS_  :  subprg_spec  IS.TOKEN 
{assign_association(yy.ruIe_id);) ; 

.gen_aa_part.  : 

I  gen_act_part  {assign_association(yy.rule_id);) ; 

...gen_asc..  : 

I  ...gen_asc.. gen_asc  {assign_association(yy.rule_id);)  ; 

.gen_finl4)rmARROW.gen_act_prm  : 
gen_act4>rm 

I  gai_fml_piin  ARROW  gen_act_pnn  {assign_association(yy.ruleJd);} ; 

expr_or_name_or_subprg_n_or_ent_n_or_ty_mk 
:  expr  {assign_association(yy.iuIe_id);} ; 

FOR_ty_siin_n_USE_  ; 

FOR_TOKEN  sim_n  USEJTOKEN  {assign_association(yy.rule_id);} ; 

.algt_cl.  : 

..prag.. 

I  ..pr^..  algt_cl  ..prag..  {assign_association(yy.rule_id);) ; 

..cmpon_cl..  : 


193 


I  ..cmpon_cl..  cmpon_cl  ..prag..  {assign_association(yy.rule_id);}  ; 
ty_ink_rec_aggr  :  qualified_expr  {assign_association(yy.nile_id),  j ; 
%% 

package  parser  is 

procedure  yyparse; 

echo :  boolean  :=  false; 
number_of_errors ;  natural  :=  0; 

end  parser, 

with  ada_tokens,  ada_goto,  ada_shift_reduce,  adajex,  textjo; 
use  ada.tokens,  ada_goto,  ada_shift_reduce,  adajex,  textjo; 
package  body  parser  is 

procedure  yyerror(s:  in  string  :=  "syntax  error")  is 
begin 

number_of_errors  :=  number_of_errors  +  1; 
put("«<  •**  "); 
put_line(s); 
end  yyerror; 

##%procedure_parse 

end  parser; 
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-  ADA_LEX.L 

../* - 

-/*  Lexical  input  for  LEX  for  LALR(1 )  Grammar  for  ANSI  Ada 
-/* 

-I*  Herman  Fischer 

--/*  Litton  Data  Systems 
-I*  March  26, 1984 

~l* 

-I*  Accompanies  Public  Domain  YACC  format  Ada  grammar 
~l* 

-/* 

~l* 

-/* 

-/* 

-I* 

../* - 


%STARTIDENTZ 

A 

[aA] 

B 

[bB] 

C 

[cC] 

D 

[dD] 

E 

[eE] 

F 

(fFJ 

G 

[gGl 

H 

IhH] 

I 

[il] 

J 

IjJl 

K 

[kKJ 

L 

(IL] 

M 

[mM] 

N 

[nN] 

0 

[oO] 

P 

IpP] 

Q 

(qQ] 

R 

[rR] 

S 

[sS] 

T 

ItT] 

U 

[uU] 

V 

(vV] 

W 

[wW] 

X 

[xX] 

Y 

[yY] 

Z 

%% 

[zZ] 

{A}  (B)  {0}  {R}  (T)  {ECHO;  textJo.new_line;  ENTER(Z);  retum(ABORT_TOKEN);} 

(A)  (B)  (S)  (ECHO;  text_io.new_line;  ENTER(Z);  remm(ABS_TOKEN);) 

(A)  (C)  (C)  (E)  {P}  (T)  (ECHO;  textJo.new_line;  ENTER(Z);  retum(ACCEPT_TOKEN);} 
{A}  (C)  (C)  (E}  (S)  {S}  (ECHO;  textJo.new_Iine;  ENTER(Z);  retum(ACCESS_TOKEN);} 
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{A)  {L}  {L}  {ECHO;  text_io.new_line;  ENTER(Z);  retuni(ALL_TOKEN);] 

{ A}  (N)  (D)  (ECHO;  textJo.new_line;  ENTER(Z);  retum(AND_TOKEN); } 

(A)  (R)  {R)  {A}  {Y}  {ECHO;  text_io.new_line;  ENTER(Z);  retum(ARRAY_TOKEN);) 

{A)  {T)  {ECHO;  text_iojiew_line;  ENTER(Z);  retum(AT_TOKEN);) 

{B}  {E)  {G)  {I)  {N}  {ECHO;  textJo.new_line;  ENTER(Z);  retum(BEGIN_TOKEN);) 

{B}  {0}  {D}  { Y)  {ECHO;  textjojiew.line;  ENTER(Z);  retuni(BODY_TOKEN);} 

{C)  {A}  {S)  {E}  {ECHO;  textJo.new_line;  ENTER(Z);  retum(CASE_TOKEN);} 

{C)  {0}  {N)  {S)  {T)  {A)  {N)  {T}  {ECHO;  texUo.new_line;  ENTER(Z); 

rctum(CONSTANT_TOKEN); } 

{D}  {E}  {C)  {L}  {A}  {R}  {E)  {ECHO;  text_io.new_line;  ENTER(Z); 

retum(DECLARE_TOKEN); } 

{D} {E}  {L}  { A)  { Y)  {ECHO;  textJo.new_line;  ENTER(Z);  retum(DELAY_TOKEN); ) 

{D}  {E}  {L)  {T}  { A)  {ECHO;  textJo.new_line;  ENTER(Z);  Tetum(DELTA_TOKEN); } 

{D}  {1}  {G1  {1}  {T}  {S}  {ECHO;  textJo.new_Iine;  ENTER(Z);  retuin(DIGITS_TOKEN);} 

{D)  {0}  {ECHO;  textJo.new_line;  ENTER(Z);  retum(DO_TOKEN) } 

(E)  {L}  {S)  {E}  {ECHO;  text_io.new_line;  ENTER(Z);  retum(ELSE_TOK^);} 

{E)  {L}  {S}  {1}  {F}  {ECHO;  text_io.new_line;  ENTER(Z);  retum(ELSIF_TOKEN);} 

{E}  {N)  {D}  {ECHO;  textJo.new_line;  ENTER(Z);  retuni(END_TOKEN);) 

{E)  {N}  {T)  {R}  {Y)  {ECHO;  textjo.new.line;  ENTER(Z);  retum(ENTRY_TOKEN);} 

{E}  {X}  {C}  {E}  {P}  {T)  {1}  {0}  {N}  {ECHO;  textJo.new_line;  ENTER(Z); 

retum(EXCEPTION_TOKEN); ) 

{E}  {X}  {1}  {T}  {ECHO;  textJo.new_line;  ENTER(Z);  retum(EXIT_TOKEN);} 

{F)  {0}  {R}  {ECHO;  textJo.new_line;  ENTER(Z);  retum(FOR_TOKEN); ) 

{F}  {U}  {N)  {C}  {T}  {1}  {0}  {N}  {ECHO;  textjo.new.line;  ENTER(Z); 

retum(FUNCnON_TOKEN); ) 

{G1  {E}  {N)  {E}  {R1  {1}  {C}  {ECHO;  textJo.new_line;  ENTER(Z);  retum(GENERIC_TOKEN);} 
{G}  {0}  {T}  {O)  {ECHO;  text  io.new_line;  ENTER(Z);  retuni(GOTO_TOKEN);) 

{1}  {F)  {ECHO;  text  io.new_line;  ENTER(Z);  retum(IF_TOKEN);) 

{I}{N)  {ECHO;  text  io.new_line;ENTER(Z);retuni(IN_TOKEN);) 

{1}  {S)  {ECHO;  textJo.new_line;  ENTER(Z);  retumaS.TOKEN);} 

{L)  {1}  {M}  {1}  {T}  {E}  {D)  {ECHO;  textJo.new_line;  ENTER(Z);  retam(LIMlTED_TOKEN);} 
{L)  {O)  {0}  {P}  {ECHO;  textJo.new_line;  ENTER(Z);  retum(LOOP_TOKEN);] 

{M)  {0}  {D)  {ECHO;  text_io.new_line;  ENTER(Z);  retum(MOD_TOKEN);) 

{N)  {E)  {W)  {ECHO;  textJo.new_line;  ENTER(Z);  retum(NEW_TOKEN);} 

{N}  {0}  {T)  {ECHO;  textjo.new.line;  ENTER(Z);  retum(NOT_TOKEN);} 

{N)  {U)  {L}  {L}  {ECHO;  textJo.new_line;  ENTER(Z);  retum(NULL_TOKEN);} 

{O)  {F}  {ECHO;  textJo.new_line;  ENTER(Z);  retum(OF_TOKEN);) 

{O)  {R}  {ECHO;  textJo.new_line;  ENTER(Z);  retum(OR_TOKEN);) 

{O]  {T)  {H]  {E}  {R]  {S]  {ECHO;  textJo.new_line;  ENTER(Z);  retuni(OTHERS_TOKEN);} 

{0}  {U}  {T}  (ECHO;  textjo.new.line;  ENTER(Z);  ietum(OUT_TOKEN);l 

{P)  {A}  {C}  {K)  { A)  {G)  {E)  {ECHO;  text_io.new_line;  ENTER(Z); 

retum(PACKAGE_TOKEN); ) 

{P}  {R}  {A)  {G}  {M}  {A)  {ECHO;  textjojiew.line;  ENTER(Z);  retum(PRAGMA_TOKEN);} 

{P}  {R}  {1}  {V}  {A}  {T)  {E}  {ECHO;  text_io.new_line;  ENTER(Z);  retum(PRIVATE_TOKEN);} 
{P)  {R}  {O)  {C}  {E)  {D)  {U)  {R}  {E}  {ECHO;  text_io.new_line;  ENTER(Z); 

retum(PROCEDURE_TOKEN); } 

{R}  {A)  {1}  {S}  {E}  {ECHO;  textJo.new_line;  ENTER(Z);  retum(RAISE_TOKEN);} 

{R)  { A)  {N}  {G)  {E}  {ECHO;  text_iojiew_line;  ENTER(Z);  retum(RANGE_TOKEN);} 

{R}  {E}  {C}  {O)  {R)  {D}  {ECHO;  textJo.new_line;  ENTER(Z);  retuni(RECORD_TOKEN);) 

{R}  {E}  {M)  {ECHO;  textJo.new_Iine;  ENTER(Z);  retuni(REM_TOKEN);) 

{R}  {E)  {N}  {A}  {M)  {E)  {S}  {ECHO;  text_io.new_line;  ENTER(Z); 

retum(RENAMES_TOKEN); } 

{R)  {E) {T}  {U)  {R)  {N)  {ECHO;  textJo.newJine;  ENTER(Z);  Tetum(RETURN_TOKEN);) 
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{R}  {El  (V)  (E)  {R}  {S}  (E)  (ECHO;  text_io.new_line;  ENTER(Z);  retum(REVERSE_TOKEN); ) 

(S)  {E}  (LI  (El  {C}  {T)  (ECHO;  text_io.new_line;  ENTER(Z);  ietum(SELECT_TOKEN);} 
(S)  (E)  (P)  (A)  {RK  A)  {T}  (E)  (ECHO;  text_io.new_line;  ENTER(Z); 
rctum(SEPARATE_TOKEN); } 

(S)  {U}  (B)  (T)  (Y)  (P)  (E)  (ECHO;  text_io.new_line;  ENTER(Z);  retuni(SUBTYPE_TOKEN);} 

(T)  {A)  (S)  (K)  (ECHO;  textJo.new_line;  ENTER(Z);  retum(TASK_TOKEN); ) 

(T)  (E)  (R)  (M)  (I)  (N)  (A)  {T}  {E}  (ECHO;  text_io.new_line;  ENTER(Z); 
retuin(TERMINATE_TOKEN); } 

(T)  (H)  (E)  (N)  (ECHO;  text_io.new_line;  ENTER(Z);  retum(THEN_TOKEN);) 

(T)  { Y)  (P)  (E)  {ECHO;  text_io.new_line;  ENTER(Z);  retum(TYPE_TOKEN); } 

(U)  {S}  {E}  {ECHO;  text_io.new_line;  ENTER(Z);  retum(USE_TOKEN);) 

{W}  (H)  {E}  (N)  {ECHO;  text_io.new_Iine;  ENTER(Z);  retum(WHEN_TOKEN);} 

{W}  (H)  {1}  (L)  (E)  {ECHO;  text_io.new_line;  ENTER(Z);  retum(WHILE_TOKEN);) 

{W}  {1}  (T)  {H}  {ECHO;  text_io.new_line;  ENTER(Z);  retum(WrrH_TOKEN);} 

{X}  {0}  (R)  {ECHO;  text_io.new_Iine;  ENTER(Z);  rctum(XOR_TOKEN);} 

"=>"  { ECHO;  text_io.new_line;  ENTER(Z);  retum(  ARROW); } 

{ECHO;  text_io.new_line;  ENTER(Z);  ietum(DOUBLE_E)OT);) 

"**"  {ECHO;  text_io.new_line;  ENTER(Z);  retum(DOUBLE_STAR); } 

{ECHO;  text_io.new_liiie;  ENTER(Z);  retuni(ASSIGNMENT); ) 

"/="  { ECHO;  text_io.new_line;  ENTER(Z);  rettim(INEQUALlTY); } 

">="  {ECHO;  text_io.new_line;  ENTER(Z);  retum(GREATER_THAN_OR_EQUAL); ) 

"<="  {ECHO;  text_io.new_line;  ENTER(Z);  retum(LESS_THAN_OR_EQUAL); } 

"«"  {ECHO;  text_io.new_line;  ENTER(Z);  retuin(LEFT_LABEL_BRACKET);) 

"»"  { ECHO;  textJo.new_line;  ENTER(Z);  retum(RIGHT_LABEL_BRACKET); } 

"o"  {ECHO;  textjo.new  line;  ENTER(Z);retum(BOX);} 

"&"  { ECHO;  text_io.newJine;  ENTER(Z);  retum('&’); ) 

"("  {ECHO;  textjo.newjine;  ENTER(Z);  retum(’0;  1 
")"  {ECHO;  text_io.new_line;  ENTER(IDENT);  retum(’)’); ) 

{ ECHO;  textJo.new_line;  ENTER(Z);  retumC*'); ) 

"+"  {ECHO;  textjo.newjine;  ENTER(Z);  retuin(’+'); } 

{ECHO;  textJo.new_line;  ENTER(Z);  retum(',’);  1 
{ECHO;  textJo.newJine;  ENTER(Z);  retumC-'); ) 

{ECHO;  textJo.new_line;  ENTER(Z);  retum(’.’); ) 
r  {ECHO;  textjo.newjine;  ENTER(Z);  retum('/'); ) 

{ECHO;  textjo.newjine;  ENTER(Z);  retum(':'); ) 

{ECHO;  textjo.newjine;  ENTER(Z);  retum(’;'); } 

"<"  {ECHO;  textJo.newJine;  ENTER(Z);  retum('<’); } 

"="  {ECHO;  textjo.newjine;  ENTER(Z);  retum('= ); ) 

">"  {ECHO;  textjo.newjine;  ENTER(Z);  retumC^); ) 

"I"  {ECHO;  textJo.newJine;  ENTER(Z);  retum(T); } 

<IDENT>\'  {ECHO;  textJo.new_line;  ENTER(Z);  retum("’);) 

Ia-z_A-Z]Ia-z_A-Z0-9]*  {ECHO;  text Jo.new_line;  E^rreR(]DENT);^etum(IDENTIFIER); } 

{0-9](0-9J*((.l(0-9J+)?({Ee](-+l?{0-9J+)?  { 

ECHO;  textJo.new_Iine;  ENTER(Z); 
retum(INTEGER_LrrERAL); ) 

l0-91{0-9J*#l0-9a.fA-FJ+(l.]l0-9a-fA-FJ+)?#(lEe]l-+l?[0-9J+)?  { 

ECHO;  textJo.new_line;  ENTER(Z); 
retum(INTEGER_LITERAL); ) 

{ECHO;  textJo.newJine;  ENTER(Z);  retuin(STRING_LITERAL);) 
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<Z>\’([''’]N\’)\’  {ECHO;  text_io.new_line;  ENTER(Z);  retum(CHARACTER_LITERAL);} 
[ 't]  null;  ”  ignore  spaces  and  tabs  (null  was  ECHO) 

null;  -  ignore  comments  to  end-of-line  (null  was  ECHO) 

(ECHO; 

text_io.put_line("??  lexical  error"  &  ada_lex_dfa.yytext  & "??"); 
num_errors  :=  num_errors  +1;} 
lyi]  { null;  -  ECHO;  linenum; 

) 

%% 


with  ada_tokens; 
use  adajtokens; 
use  textjo; 

package  adajex  is 

lines  ;  positive  :=  1; 
num_errors :  natural  :=  0; 

procedure  linenum; 

function  yylex  return  token; 

end  adajex; 

package  body  ada_lex  is 

procedure  linenum  is 
begin 

textJo.put(integer'image(lines)  & ":"); 
lines  :=lines  + 1; 
end  linenum; 

m 

end  adajex; 
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-  ADA_LEX_DFA.A 

package  ada_lex_dfa  is 

aflex_debug :  boolean  :=  false; 

yytext_ptr :  integ^,  --  points  to  start  of  yytext  in  buffer 

-  yy_ch_buf  has  to  be  2  characters  longer  than  YY_BUF_SIZE  because  we  need 

-  to  put  in  2  end-of-buffer  characters  (Ais  is  explained  where  it  is 
"  done)  at  the  end  of  yy_ch_buf 
YY_READ_BUF_SI^  :  constant  integer  :=  8192; 

YY_BIJF_SIZE :  constant  integer  :=  YY_READ_BUF_SIZE  *  2;  -  size  of  input  buffer 
type  unbounded_character_anay  is  array(integer  range  o)  of  character, 
subtype  ch_buf_type  is  unbounded_character_array(O..YY_BUF_SIZE  +1); 
yy-_ch_buf :  ch_buf_type; 
yy_cp,  yy_bp :  integer; 

--  yy_hold_char  holds  the  character  lost  when  yytext  is  formed 
yy_hold_char :  character, 

yy_c_buf_p  :  integer,  ~  points  to  current  character  in  buffer 

function  YYText  return  string; 
function  YYLength  return  integer, 
procedure  YY_DO_BEFORE_ACnON; 

"These  variables  are  needed  between  calls  to  YYLex. 
yy.init ;  boolean  :=  true;  --  do  we  need  to  initialize  YYLex? 
yy_start :  integer  :=  0;  --  current  start  state  number 
subtype  yy_state_type  is  integer, 
yyjast_accepting_state :  yy_state_type; 
yy_last_accepting_cpos :  integer, 
end  ada_lex_dfa; 

with  ada_lex_dfa;  use  ada_lex_dfa; 
package  body  ada_lex_dfa  is 
function  YYText  return  string  is 
i :  integer; 

strjoc :  integer  :=  1; 
buffer :  string(1..1024); 

EMPTY_STWNG  :  constant  string  := 
begin 

--  find  end  of  buffer 
i  :=  yytext_ptr, 

while  ( yy_ch_buf(i)  /=  ASCII.NUL )  loop 
buffer(strJoc )  :=  yy_ch_buf(i); 
i  :=i  + 1; 

strjoc  :=  strjoc  +  1; 
end  loop; 

-  return  yy_ch_buf(yytext_ptr..  i  - 1); 

if  (strjoc  <  2)  then 
return  EMPTY_STRING; 
else 
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return  buffer(l..str_loc-l); 
end  if; 

end; 

-  returns  the  length  of  the  matched  text 
function  YYLength  return  integer  is 
begin 

return  yy_cp  -  yy_bp; 
end  YYLength; 

~  done  after  the  current  pattern  has  been  matched  and  before  the 

-  corresponding  action  -  sets  up  yytext 

procedure  YY_DO_BEFORE_ACnON  is 
begin 

yytext_ptr  :=  yy_bp; 
yy_hold_char  :=  yy_ch_buf(yy_cp); 
yy_ch_buf(yy_cp)  :=  ASCn.NUL; 
yy_c_buf_p  :=  yy_cp; 
end  YY_DO_BEFORE_ACnON; 

end  ada_lex_dfa; 
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--  ADA_LEX_IO.A 

with  ada_lex_dfa;  use  ada_lex_dfa; 
with  textjo;  use  text_io; 

ith  text_io;  use  textjo;  x_dfa;  e  our  newline,  put  it  back  on  the  end. ;  max_size 
package  ada_lex_io  is 
NULL_IN_INPUT ;  exception; 

AFLEX_INTERNAL_ERROR :  exception; 

UNEXPECTED_LAST_MATCH ;  exception; 

PUSHBACK.OVERFLOW :  exception; 

AFLEX_SCANNER_JAMMED :  exception; 
type  eob_action_type  is  ( EOB_ACT_RESTART_SCAN, 
EOB_ACT_END_OF_FILE, 

EOB_ACT_LAST_MATCH  ); 

YY_END_OF_BUFFER_CHAR  :  constant  character:=  ASCn.NUL; 
yy_n_chars :  integer;  --  number  of  characters  read  into  yy_ch_buf 
y_n_chars ;  integer;  —  number  of  characters  read  into  yy_ch_buf . ;  max_size 
~  true  when  we’ve  seen  an  EOF  for  the  current  input  file 
yy_eof_has_been_seen ;  boolean; 

y_eof_has_been_seen :  boolean;  or  the  current  input  file  nto  yy_ch_buf . ;  max_size 
procedure  YY_INPUT(buf:  out  unbounded_character_array;  result:  out  integer; 
max_size:  in  integer); 

function  yy_get_next_buffer  return  eob_action_type; 
procedure  yyunput(  c  :  character;  yy_bp:  in  out  integer ); 
procedure  unput(c :  character); 
funaion  input  return  character; 
procedure  output(c :  character); 
function  yywrap  return  boolean; 
procedure  Open_Input(fhame :  in  String); 
procedure  Close_Input; 

procedure  Create_Output(fhame  :  in  String  :=  ""); 
procedure  Close_Output; 
end  ada_lex_io; 

nd  ada_lex_io;  Output;  fname  ;  in  String  :=  "");  teger );  It:  out  integer,  max_size 
package  body  tulajexjo  is 

“  gets  input  and  stuffs  it  into  'buf .  number  of  characters  read,  or  YY_NULL, 

“  is  returned  in  'result'. 

-  is  returned  in  'result',  into  'buf.  number  of  characters  read,  or  YY_NULL,  size 
procedure  YY_INPUT(buf:  out  unbounded_character_array;  result:  out  integer; 
max.size:  in  integer)  is 
c :  character, 
i :  integer  :=  1; 
loc  :  integer  :=  buf  first; 
begin 

while  ( i  <=  max_size )  loop 

if  (end_of_line)  then  —  Ada  ate  our  newline,  put  it  back  on  the  end. 
buf(loc)  :=ASCn.LF; 
skip_line(l); 
dsc 

get(buf(loc)); 
end  if; 

nd  if;  et(buf(loc));  n.LF;  te  our  newline,  put  it  back  on  the  end. ;  max_size 
loc  :=loc  +  1; 
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i  :=i+  1; 
end  loop; 

nd  loop; ;  oc  +  1; );  n.LF;  te  our  newline,  put  it  back  on  the  end. ;  niax_size 

result  :=i- 1; 

exception 

when  END_ERR0R  =>  result  :=  i  -  1; 

“  when  we  hit  EOF  we  need  to  set  yy_eof_has_been_seen 
yy_eof_has_been_seen  :=  true; 
endYY.INPUT; 

nd  YY_INPUT;  _been_seen  :=  true;  set  yy_eof_has_been_seen  ck  on  the  end. ;  max_size 
“  yy_get_next_buffer  -  try  to  read  in  new  buffer 

--  returns  a  code  representing  an  action 

-  EOB_ACT_LAST_MATCH  - 

-  EOB_ACT_RESTART_SCAN  -  restart  the  scanner 

-  EOB_ACT_END_OF_FILE  -  end  of  file 

-  EOB_ACT_END_OF_FILE  -  end  of  file  scanner  een_seen  ck  on  the  end. ;  max_size 
function  yy_get_next_buffer  return  eob_action_type  is 

dest :  integer  :=  0; 

source :  integer  :=  j^ext_ptr  - 1;  -  copy  prev.  char,  too 
number_to_move :  integer; 
ret_val :  eob_action_type; 
num_to_read :  integer; 
begin 

if  ( yy_c_buf_p  >  yy_n_chars  +  1 )  then 
raise  NULL_IN_INPUT; 
end  if; 

end  if;  e  NULL_IN_INPUT;  ars  +  1 )  then  opy  prev,  char,  too  the  end. ;  max_size 
“  try  to  read  more  data 

-  try  to  read  more  data  ars  +  1 )  then  opy  prev.  char,  too  the  end. ;  max_size 

-  first  move  last  chars  to  start  of  buffer 
number_to_move  :=  yy_c_buf_p  -  yytext_ptr; 

number_to_move  ;=  yy_c_buf_p  -  yytext_ptr;  prev.  char,  too  the  end. ;  max_size 
for  i  in  O..number_to_move  - 1  loop 
yy_ch_buf(dest)  :=  yy_ch_buf(source); 
dest  :=  dest  +  1; 
source  :=  source  +  1; 
end  loop; 

oop;  source  +  1;  yy_ch_buf(source);  prev.  char,  too  the  end. ;  max_size 
if  ( yy_eof_has_been_seen )  then 
“  don't  do  the  read,  it's  not  guaranteed  to  return  an  EOF, 

--just  force  an  EOF 

“  just  force  an  EOF  it's  not  guaranteed  to  return  an  EOF,  the  end. ;  max_size 

yy_n_chars  :=  0; 

else 

num_to_read  :=  YY_BUF_SIZE  -  number_to_move  - 1; 

num_to_read  :=  YY_BUF_SIZE  -  number_to_move  - 1;  m  an  EOF,  the  end. ;  max_size 
if  ( num_to_read  >  YY_READ_BUF_SIZE )  then 
num_to_read  :=  YY_READ_BUF_SIZE; 
end  if; 

end  if;  ead  :=  YY_READ_BUF_SIZE;  then  - 1;  m  an  EOF,  the  end. ;  max_size 

-  read  in  more  data 
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YY_INPUT(  yy_ch_buf(number_to_move..yy_ch_buflast),  yy_n_chars,  num_to_read 

); 

end  if; 

if  ( yy_n_chars  =  0 )  then 
if  ( number_to_move  =  1 )  then 
ret.val  ;=  EOB_ACT_END_OF_FILE; 
else 

ret.val  :=  EOB_ACT_LAST_MATCH; 
end  if; 

end  if;  :=  EOB_ACT_LAST_MATCH;  yy_ch_buf last),  yy_n_chars,  num_to_read  )ze 
yy_eof_has_been_seen  :=  true; 
else 

ret.val  :=  EOB_ACT_RESTART_SCAN; 
end  if; 

nd  if;  :=  EOB_ACT_RESTART_SCAN; ;  yy_ch_buf  last),  yy_n_chars,  num_to_read  )ze 
yy_n_chars  :=  yy_n_chars  +  number_to_move; 
yy_ch_buf(yy_n_chars)  :=  YY_END_OF_BUFFER_CHAR; 
yy_ch_buf(yy_n_chars  +  1)  :=  YY_END_OF_BUFFER_CHAR; 

yy_ch_buf(yy_n_chars  +  1)  :=  YY_END_OF_BUFFER_CHAR;  yy_n_cha^s,  num_to_read  )ze 

-  yytext  begins  at  the  second  character  in 

-  yy_ch_buf;  the  first  character  is  the  one  which 
--  preceded  it  before  reading  in  the  latest  buffer; 

-  it  needs  to  be  kept  around  in  case  it's  a 

-  newline,  so  yy_get_previous_state()  will  have 

-  with  rules  active 

-  with ''''  rules  active  vious_state()  will  have  r,  yy_n_chars,  num_to_read  )ze 
yytext_ptr  :=  1; 

yytext_ptr  :=  1;  active  vious_state()  will  have  r,  yy_n_chars,  nunt_to_read  )ze 
return  ret_val; 
end  yy_get_next_buffer, 

nd  yy_get_next_buffer,  tive  vious_state()  will  have  r;  yy_n_chars,  nuni_to_read  )ze 
procedure  yyunput(  c  :  character;  yy_bp:  in  out  integer )  is 
nuniber_to_move :  integer; 
dest :  integer, 
source :  integer, 
tnip_yy_cp :  integer; 
begin 

tmp_yy_cp  :=  yy_c_buf_p; 

yy_ch_buf(tinp_yy_cp)  :=  yy_hold_char;  -  undo  effects  of  setting  up  yytext 
yy_ch_buf6nip_yy_cp)  :=  yy_hold_char;  --  undo  effects  of  setting  up  yytext  d  )ze 
if  ( tmp_yy_^  <  2 )  then 

-  need  to  shift  things  up  to  make  room 
number_to_move  :=  yy_n_chars  +  2;  -  +2  for  EOB  chars 
dest  ;=  YY_BUF_SIZE  +  2; 

source  :=  number_to_move; 

source  :=  number_to_move;  rs  +  2;  —  +2  for  EOB  chars  of  setting  up  yytext  d  )ze 
while  ( source  >  0 )  loop 
dest  ;=  dest  - 1; 
source  :=  source  - 1; 
yy_ch_buf(dest)  :=  yy_ch_buf(source); 
end  loop; 

end  loop;  _ch_buf(dest)  :=  yy_ch_buf(source);  B  chars  of  setting  up  yytext  d  )ze 
tnip_yy_cp  :=  tmp_yy_cp  +  dest  -  source; 
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yy_bp  :=  yy_bp  +  dest  -  source; 
yy_n_chars  :=  YY_BUF_SIZE; 

yy_n_chars  :=  YY_BUF_SIZE;  rce;  source;  rce);  B  chars  of  setting  up  yytext  d  )ze 
if  ( tmp_yy_cp  <  2 )  then 
raise  PUSHBACK_OVERFLOW; 
end  if; 
end  if; 

end  if;  e  PUSHBACK_OVERFLOW;  e;  source;  ice);  B  chars  of  setting  up  yytext  d  )ze 
if  ( tmp_yy_cp  >  yy_bp  and  then  yy_ch_buf(tinp_yy_cp-l)  =  ASCD.LF )  then 
yy_ch_buf(tmp_yy_cp-2)  :=  ASCO.LF; 
end  if; 

end  if;  f(tmp_yy_cp-2)  :=  ASCn.LF;  h_buf(tmp_yy_cp-l)  =  ASCH.LF )  then  t  d  )ze 
tnip_yy_cp  ;=  tmp_yy_cp  - 1; 
yy_ch_buf(tmp_yy_cp)  ;=  c; 

yy_ch_buf(tmp_yy_cp)  :=  c;  Cn.LF;  h_buf(tmp^y_cp-l)  =  ASCB.LF )  then  t  d  )ze 
-  Note:  this  code  is  the  text  of  YY_DO_BEFORE_ACTION,  only 
here  we  get  different  yy_cp  and  yy_bp's 
yytext_ptr  ;=  yy_bp; 

yy_hold_char  ;=  yy_ch_buf(tmp_yy_cp); 
yy_ch_buf(tmp_yy_cp)  :=  ASCn.NUL; 
yy_c_buf_p  :=  tmp_yy_cp; 
end  yyunput; 

nd  yyunput;  p  ;=  tmp_yy_cp;  SCn.NUL; );  yy_bp’s  TION,  only  SCH.LF )  then  t  d  )ze 

procedure  unput(c  :  character)  is 

begin 

yyunputC  c,  yy_bp ); 
end  unput; 

nd  unput;  t(  c,  yy_bp );  ter)  is  NUL; );  yy.bp’s  TION,  only  SCH.LF )  then  t  d  )ze 
function  input  return  character  is 
c :  character, 

yy_cp :  integer  :=  yy_c_buf_p; 
begin 

yy_ch_buf(yy_cp)  :=  yy_hold_char, 

yy_ch_buf(yy_cp)  :=  yy_hold_char;  );  yy_bp‘s  TION,  only  SCn.LF )  then  t  d  )ze 
if  (  yy_ch_buf(yy_c_buf_p)  =  YY_END_OF_BUFFER_CHAR  )  then 
“  need  more  input 
yytext_ptr  :=  yy_c_buf_p; 
yy_c_buf_p  :=  yy_c_buf_p  +  1; 

yy_c_buf_p  :=  yy_c_buf_p  +  1;  Y_END_OF_BUFFER_CHAR )  then  SCn.LF )  then  t  d  )ze 
case  yy_get_next_buffer  is 

"  diis  code,  unfortunately,  is  somewhat  redundant  with 
that  above 

-  that  above  unfortunately,  is  somewhat  redundant  with  H.LF )  then  t  d  )ze 
when  EOB_ACT_END_OF_FILE  => 
if  ( yywrap  )  then 
yy_c_buf_p  :=  yytext_ptr; 
return  ASCn.NUL; 
end  if; 

end  if;  m  ASCn.NUL;  xt_ptr,  s  somewhat  redundant  with  n.LF )  then  t  d  )ze 
yy_ch_buf(0)  :=  ASCn.LF; 
yy_n_chars  :=  1; 

yy_ch_buf(yy_n_chars)  :=  YY_END_OF_BUFFER_CHAR; 
yy_ch_buf(yy_n_chais  +  1)  :=  YY_END_OF  BUFFER_CHAR; 
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yy_eof_has_been_seen  :=  false; 
yy_c_buf_p  ;=  1; 
y^xt_ptr  :=  yy_c_buf_p; 
yy_hold_char  :=  yy_ch_buf(yy_c_buf_p); 

yy_hold_char  :=  yy_ch_buf(yy_c_buf_p); )  is  EOF  AR;  ith  n.LF )  then  t  d  )ze 
return  ( input ); 

when  EOB_ACT_RESTART_SCAN  => 
yy_c_buf_p  :=  yytext_ptr; 

yy_c_buf_p  :=  yytext_ptr,  =>  c_buf_p); )  is  EOF  AR;  ith  n.LF )  then  t  d  )ze 
when  EOB_ACT_LAST_MATCH  => 
raise  UNEXPECTED_LAST_MATCH; 
when  others  =>  null; 
end  case; 
end  if; 

end  if;  case;  s  =>  null;  _MATCH;  c_buf_p); )  is  EOF  AR;  ith  n.LF )  then  t  d  )ze 
c  ;=  yy_ch_buf(yy_c_buf_p); 
yy_c_buf_p  :=  yy_c_buf_p  +  1; 
yy_hold_char  :=  yy_ch_buf(yy_c_buf_p); 

yy_hold_char  :=  yy_ch_buf(yy_c_buf_p);  p); )  is  EOF  AR;  ith  n.LF )  then  t  d  )ze 
retiun  c; 
end  input; 

nd  input;  c;  ar  :=  yy_ch_buf(yy_c_buf_p);  p); )  is  EOF  AR;  ith  n.LF )  then  t  d  )ze 

procedure  output(c :  character)  is 

begin 

text_io.put(c); 
end  output; 

nd  output;  put(c);  character)  is  buf_p);  p); )  is  EOF  AR;  ith  n.LF )  then  t  d  )ze 
-  default  yywrap  function  -  always  treat  EOF  as  an  EOF 
function  yj^ap  return  boolean  is 
begin 
retiun  true; 
end  yywrap; 

nd  yywrap;  rue;  etum  boolean  is  s  treat  EOF  as  an  EOF  AR;  ith  n.LF )  then  t  d  )ze 
procedure  Open_Input(fnanie ;  in  String)  is 
f :  file_ty^; 
begin 

yy_init  :=  true; 
open(f,  in_file,  fname); 
set_input(f); 
end  Open_Input; 

nd  0^n_lnput; ;  e,  fname);  in  String)  is  OF  as  an  EOF  AR;  ith  n.LF )  then  t  d  )2e 
procedure  Create_C)utput(fhame :  in  String  ;=  ’’")  is 
f :  file_type; 
begin 

if  (fname  /=  "")  then 
create(f,  out_file,  fname); 
set_output(f); 
end  if; 

end  Create_Output; 

nd  Create_Output;  f);  ile,  fname);  tring  :=  "")  is  EOF  AR;  ith  n.LF )  then  t  d  )ze 
procedure  Close_Input  is 
begin 
null; 
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end  Close_Input; 

nd  Close_Input;  tput  is ,  fiiame);  tring  :=  "")  is  EOF  AR;  ith  n.LF )  then  t  d  )ze 
procedure  Close_Output  is 
begin 
null; 

end  Close_Output; 

nd  Close_Output;  tput  is ,  fhame);  tring  ;=  ”")  is  EOF  AR;  ith  n.LF )  then  t  d  )ze 
end  adajexjo; 

nd  ada_lex_io; ;  tput  is ,  fiiame);  tring  ;=  "*')  is  EOF  AR;  ith  n.LF )  then  t  d  )ze 
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-  ADA_TOKENS.A 
package  Ada.Tokens  is 


subtype  yystype  is  integer; 

YYLVal,  YYVal :  YYSType; 
type  Token  is 
(End_Of_Input,  Error, 

\V)V*\ 

•  I  •  t  »  t  I 
>  9  9  “  ♦ 

I  I  I#  1,1 
•9/9  *9 
«.t  1^1  !_• 

T,  Arrow, 

Double_Dot,  Double_Star,  Assignment, 

Inequality,  Greater_Than_Or_Equal,  Less_Than_Or_Equal, 
Left_Label_Bracket,  Right_Label_Bracket,  Box, 
Abort_Token,  Abs_Token,  Accept_Token, 

Access_Token,  All_Token,  And_Token, 

Array_Token,  At_Token,  Begin_Token, 

Body_Token,  Case_Token,  Constant_Token, 
Declare_Token,  Delay_Token,  DeIta_Token, 

Digits_Token,  Do_Token,  Else_Token, 

Elsif_Token,  End_Token,  Entry_Token, 

Exception_Token,  Exit_Token,  For_Token, 
Function_Token,  Generic_Token,  Goto_Token, 

If_Token,  In_Token,  Is_Token, 

Limited.Token,  Loop_Token,  Mod_Token, 

New_Token,  Not_Token,  Null_Token, 

Of_Token,  Or_Token,  OAers.Token, 

Out_Token,  Package_Token,  Pragma_Token, 
Private_Token,  Procedure_Token,  Raise_Token, 
Range_Token,  Record_Token,  Rem_Token, 
Renames_Token,  Retum_Token,  Reverse_Token, 
Select_Token,  Separate_Token,  Subtype_Token, 
Task_Token,  Tenninate_Token,  Then_Token, 

Type_Token,  Use_Token,  When_Token, 

While_Token,  With_Token,  Xor_Token, 

Uentifier,  Integer_Literal,  Real_Literal, 

Character_Literal,  String_Literal,  Error  1, 

Error2,  Errors,  Error4, 

Errors,  Errorb,  Error?, 

Errors,  Error9,  ErrorlO, 

Errorll,  Errorl2,  ErrorlS, 

Errorl4,  ErrorlS ); 

Syntax_Error :  exception; 

end  Ada_Tokens; 
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-  ADA_SinFT_REDUCE.A 
package  Ada_Shift_Reduce  is 

type  Small_Integer  is  range  -32_000 ..  32_000; 

type  Shift_Reduce_Entry  is  record 
T  :  Small_Integer; 

Act :  Small_Integer; 
end  record; 

pragma  Pack(Shift_Reduce_Entry); 
subtype  Row  is  Integer  range  -1 ..  Integer'Last; 

-pragma  suppress(index_check); 

type  Shift_Reduce_Airay  is  array  (Row  range  <>)  of  Shift_Reduce_Entry; 

Shift_Reduce_Matrix  :  constant  Shift_Reduce_Array  := 

( (-1,-1)  —  Dummy  Entry 

-  state  0 
.(-1,-301) 

••  StdtC  1 

,( 52,-436),(  53,-436),(  68,-436) 

,( 71,-436),(  80,-436),(  89,-436),(- 1,-245) 

-state  2 
.(69,7),(-l,-433) 

••  StBtC  3 

,(0,-1001),(-l,-1000) 

“State  4 

,( 52, 22),(  53, 28),(  68, 20),(  71, 25) 

,(80,24),(-l,-1000) 

••  ctofp  ^ 

,(89,31),(-l.-256) 

-state  6 
,(-1,-301) 

-  State  7 

,(91,34),(-1,-1000) 

-state  8 
,(-1,-302) 

-state  9 

,(-1,-1000) 

-state  1() 

,(-1,-248) 

-state  11 
,(-1,-249) 

“State  12 
.(-1,-250) 
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“  state  13 
.(-1.-251) 

"State  14 
.(-1.-252) 

"State  15 
.(-1.-253) 

-state  16 
.(-1.-254) 

—  state  17 

.(  13, 35),(57, 36).(-l,-1000) 

"State  18 
.(13.37) 

.(-I.-IOOO) 

..  CtSltA  1 0 

,( 13, 38),(-l,-1000) 

"State  20 
.( 37,40) 

,(91,39).(-1.-1000) 

—  state  21 
,(61,41),(.1,-1000) 

--  state  22 

,(91.42),(95.44),(-1,-1000) 

"State  23 
.(-1.-255) 

"State  24 
,(4, 46),(-l,-1000) 

—  State  25 
.(91,47),(.1,-1000) 

"State  26 

,( 52. 48),(  68, 49),(  71, 25 ),(-!, -1000) 

"State  27 
.(-1,-435) 

"State  28 
,(-1,-444) 

"State  29 
.(-1.-246) 

-state  30 
.(-1.-247) 

,(91.53),(-1,-1000) 

-state  32 
.(-1.-301) 

"State  33 
,(69,7) 

,(-1.-434) 

"State  34 
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,(4,57),(-l.-303) 

-•state  35 

.(-1,-200) 

-state  36 
,(61,-451),(-1.-301) 

-state  37 

.(-1,-212) 

-state  38 
,(-1.-267) 

—  state  39 

,( 57.63),(-l.-1000) 

-state  40 
,(91,53).(-1,-1000) 

—  state  41 
,(91.65),(-1,-1000) 

-state  42 
.(-1.-203) 

-state  43 
.(-1.-204) 

-state  44 
,(-1,-205) 

••  stdtc  45 

,(4,68).(57.70).(-l,-393) 

-state  46 
,(91. 65), (-1,-1000) 

-state  47 
,(4,68), (-1,-393) 

-state  48 

,( 91, 42),(  95, 44),(-l,-1000) 

-state  49 

,(91.74) 

.(-1,-1000) 

-state  50 
.(-1.-268) 

-state  5l 
.(-1.-269) 

-state  52 
.(85,76) 

,(89.78),(91,79),(-l,-270) 

-state  53 

.(-1.-107) 

-state  54 
.(-1.-440) 

-state  55 
,(69.7).(-l.-438) 

-state  56 
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.( 86. 82) 

.(-1.-437) 

"  state  57 

.(4. 123).(7. 101).(  9. 102) 

.( 29. 105).(  61. 115).(  62. 106), ( 63, 108) 
,( 91. 87),(  92, 114),(  93. 113).(  94, 118) 
.(95,44),(-l,-1000) 

-state  58 

,( 13, 125),(-1,-1000) 

-state  59 
,(-1,-399) 

-state  60 

,(1,148),(51, 160),(  52, 22) 

,( 53, 28),(  68. 135), ( 71, 25).(  81, 155) 

,( 82. 136),(  85, 161).(  86, 82), ( 91, 79) 
,(-1.-84) 

—  state  61 
.(69,7),(-l,-331) 

-state  62 

.( 36, 165) 

,(-1,-1000) 

-state  63 

,( 61. 167),(-1,.301) 

-state  64 
,(57, 168) 

,(-1,-1000) 

-state  65 
,(-1,-313) 

-state  66 
,(4, 170).(  10, 172) 

,(-1.-452) 

-state  67 
,(-1,-394) 

-state  68 
,(91,79),(-1,-1000) 

-state  69 

,( 77. 175), (-1,-1000) 

-state  70 

,( 61, 176),(-1,-1000) 

*•  St3tC  71 

,( 5, 177),(  10, 172),(-1,-1000) 

-state  72 

.(-1,-201) 

—  state  73 
,(4,68),(-l.-393) 

—  state  74 

,(57, 178).(-1,-1000) 

-state  75 


211 


.( 12, 179),(-1,-1000) 

“State  76 

,( 91, 180).(-1,-1000) 

“State  77 
,(-1.-273) 

—  state  78 

,(52,48),(71,25),(-1,-1000) 

“State  79 
,(-1,-309) 

“State  80 
.(-1.-445) 

“State  8l 
,( 8, 184),(  13, 183) 
,(-1,-1000) 

“State  82 
,(91,65),(-1,-1000) 

“State  83 
.(-1,-301) 


“State  84 
,(-1.-305) 

“State  85 

,(5,187),(  8, 188),(-1,.1000) 

“State  86 

,(-1.-2) 

“State  87 

,( 18, 189),(-1,-107) 

“State  88 
,(33, 190) 

,(-1.-125) 

“State  89 
,(33,  191),(-1,-126) 

“State  90 
,( 65, 192) 

.(-1.-127) 

..  CtSlt^  0 1 

,(65, 193), (-1,-128) 

“State  92 
.(-1,-129) 


**  st3tc  93 

,( 33, 194),(  65, 195),(  90, 196), (-1,-341) 

“State  94 
,(90,197),(-l,-342) 

••  CfAfA  0^ 

,(14,202),(15,200) 

,( 16, 204),(  22, 201),(  23, 205),(  24, 203) 
,(56,-352),(62,199),(-l,-349) 

“State  96 
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,(-1.-131) 


--state  97 

,( 2, 210), ( 7, 208),(  9. 209),(-l,-132) 

-state  98 
.(-1.-354) 

-state  99 

,(4,123), (29, 105),(61,115) 

,( 62, 106),(  63, 108),(  91, 53),(  92, 114) 
,(  93, 113),(  94, 118),(  95, 44), (-1,-1000) 

-state  100 

,( 6, 213),(  11, 214),(  60, 215),(  75, 216) 
.(-1,-133) 

-state  101 
.(-1.-152) 

-state  102 
,(-1,-153) 

-state  103 
.(-1.-357) 

-state  104 
,(20,218),(-l,-359) 

-state  105 
,(4, 123),(61,115) 

,( 63, 108),(  91, 53),(  92, 114),(  93, 113) 
,(94,118),(95,44),(-1,-1000) 

-state  106 
,(4, 123) 

,( 61, 115),(  63, 108),(  91, 53),(  92, 114) 
,( 93, 113),(  94, 118),(  95, 44),(- 1,-1 000) 

-state  107 
,(-1,-137) 

-state  108 
,(-1,-138) 

-state  109 
.(-1.-139) 

-state  110 
,(-1.-140) 

—  state  111 

,( 3.-108).(  4,-108),(  10,-108),(-1,-141) 

-state  112 
.(-1.-142) 

-state  113 

.(-1.-4) 

-state  114 
.(-1.-5) 

-state  115 
,(91,65) 
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,(-1.-1000) 
--state  116 
.(-1.-158) 
-state  117 
.(-l.-lOl) 
-state  118 
.(-1.-102) 


-state  119 
.(-1.-103) 
-state  120 
.(-1.-104) 
-state  121 
.(-1.-105) 
-state  122 
,(-1,-106) 


-state  123 

.(1.229),(4. 123),(7, 101),(  9, 102) 

,( 29, 105), ( 61, 115),(  62, 106),(  63, 108) 
,( 66, 228),(  91, 53),(  92, 114),(  93, 113) 
,(94,118).(95,44),(-1,-1000) 

-state  124 
.(3,233) 

,(4, 123),(10,232),(-1,-1000) 

-state  125 

,(-1,-1) 


-state  126 
,(-1,-96) 
"State  127 
,(-1.-97) 
-state  128 
,(-1,-86) 
-state  129 
,(-1.-87) 


-state  130 
.(-1.-88) 
-state  131 
.(-1,-98) 
"State  132 
.(-1.-99) 
-state  133 
.(-l.-lOO) 


-state  134 

,( 13, 35),(  57, 234),(  76, 235),(-l,-1000) 


-state  135 

,(37,237),(91,236),(-1,-1000) 

-state  136 

,(37,240) 
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,(85.238),(-l.-410) 
"State  137 
,(-1.-6) 

-state  138 
,(-1.-7) 

"State  139 

,(-1,-8) 

"State  140 
,(-1.-9) 

"State  141 

,(-1,-10) 

"State  142 

.(-1,-11) 

"State  143 

.(-1,-12) 

"State  144 
,(-1.-13) 

"State  145 
,(-1,-14) 

"State  146 
.(-1.-15) 

"  State  147 
,(-1,-16) 

"State  148 
,( 13, 241), (-1,-1000) 
"State  l49 
,(-1,-289) 

"State  150 
.(-1,-290) 

"State  151 
,(12, 242), (-1,-1000) 
"State  152 
,(-1.-24) 

"State  153 
.(-1.-25) 

"State  154 
.(-1.-26) 

"State  155 
,(91.243),(-1,-1000) 

"State  156 
.(13,244),(-1,-1000) 
"State  157 
.(-1.-291) 

"State  158 
,(-1.-292) 

"State  159 
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.(-1,-293) 

"State  160 

.(91.53),(94.118).(95.44) 

,(-1.-1000) 

"State  l6l 
,(91,249),(-1,-1000) 

"State  162 
.(4, 123) 

,(74,251),(-1,-1000) 

"State  l63 
.(-1,-301) 

"State  164 
,(-1.-301) 

"State  16S 
.(-1.-301) 

"State  166 

,(1.148),(51,160).(52,22) 

,( 53, 28),(  68, 259),(  70, 257),(  71, 25) 

,( 81, 155),(  82, 260),(  85, 161),(  86, 82) 
,(91,79),(-l,-402) 

"State  167 
,(91,65),(.1,.1000) 

"State  168 
,(-1,-301) 

"State  169 
.(-1.-453) 

"State  170 
,(4, 123),(7, 101) 

,(  9, 102),(  29, 105),(  61, 115),(  62, 106) 
,( 63, 108),(  91, 53),(  92, 114),(  93, 113) 
,(94,118),(95,44),(-1,-1000) 

"State  171 
.(13,272) 

,(-1,-1000) 

"State  172 
.(91, 273), (-1,-1000) 

--  state  173 
,(12.274) 

.(-I.-IOOO) 

"State  174 
.(-1,-395) 

"State  175 
,(91.65),(-1,-1000) 

"State  176 
.(91,65),(-1,-1000) 

"State  177 
.(52.48),(68,279) 

,( 71. 25),(  82, 280),(-l.-1000) 

"State  178 
.(-1.-30I) 
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-state  179 
.(56.283),(-l.-397) 
-state  180 
.(4,285),(57.286) 
.(-1,-1000) 

-state  l8l 
.(57,288),(-l.-448) 
-state  182 
,(8.290) 

,(-1,-23) 

-state  183 
,(-1.-257) 

-state  184 
,(91,53),(-1,-1000) 


-state  185 


,( 10, 172),(-l,-408) 
-state  186 
,(69,7).(-l.-439) 


-state  187 
.(-1.-304) 

-state  188 

,(4, 123), (7, 101),(9, 102) 

,( 29, 105), ( 61, 115),(  62, 106).(  63, 108) 
,( 91, 87).(  92, 114),(  93, 113),(  94, 118) 
.(95,44),(.1,-1000) 

-state  189 
,(4,123),(7, 101) 

,( 9. 102),(  29. 105),(  61, 115),(  62, 106) 
,( 63,  108),(  91, 53),(  92, 1 14),(  93, 1 13) 
,(94.118),(95,44),(-1,-1000) 

-state  190 
,(4, 123) 

,( 7, 101),(  9, 102),(  29. 105),(  61, 1 15) 

,( 62, 106),(  63, 108),(  91. 53),(  92, 114) 
.( 93, 113).(  94, 118),(  95, 44),(-l,-1000) 

—  state  191 

,( 84, 296),(-l,-1000) 

-state  192 
.(4, 123),(7, 101) 

,( 9. 102),(  29, 105),(  61, 115),(  62, 106) 
,( 63. 108),(  91, 53),(  92, 114),(  93, 113) 
,(94,118),(95.44),(-1,-1000) 

-state  l93 
,(45.298) 

,(-1,-1000) 

—  state  l94 

.(4, 123).(7, 101),(9, 102) 

,( 29, 105),(  61, 1 15),(  62, 106),(  63, 108) 
,( 84, 300),(  91, 53),(  92, 1 14),(  93, 1 13) 
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.(94,118),(95.44),(-1,-1000) 

--state  195 
.(4.123) 

.( 7, 101), ( 9. 102), ( 29. 105).(  45, 302) 

.(  61, 115),(  62. 106),(  63, 108).(  91. 53) 
.( 92. 114).(  93. 113).(  94, 118),(  95. 44) 
,(-1,-1000) 

-state  196 

,(4. 123),(7. 101),(9, 102) 

.( 29, 105),(  61, 115),(  62, 106),(  63, 108) 
,(91,53).(92, 114),(93. 113), (94, 118) 
.(95.44),(-l,-1000) 

-state  197 
,(4. 123),(7. 101) 

.(  9, 102),(  29, 105),(  61, 115),(  62, 106) 
.( 63. 108).(  91. 53),(  92. 114),(  93, 113) 
.(94.118),(95.44),(-1,-1000) 

-state  198 
,(4. 123) 

.( 7, 101),(  9, 102), ( 29, 105), ( 61. 115) 

,( 62. 106),(  63, 108),(  91, 53),(  92, 114) 
,( 93. 113),(  94, 118),(  95, 44),(- 1,-1 000) 

-state  199 
.(-1.-353) 

-state  200 
.(-1.-143) 

-state  201 
.(-1.-144) 

-state  202 
.(-1.-145) 


-state  203 
.(-1.-146) 

-state  204 
.(-1.-147) 

-state  205 
.(-1.-148) 

-state  206 
.(-1.-130) 

-state  207 
,(56, 306),(-l,-1000) 
-state  208 
.(-1.-149) 

-state  209 
.(-1.-150) 


-state  210 
.(-1.-151) 

—  state  2l  1 

,(4,123).(29. 105).(61.115) 

,(  62. 106),(  63, 108).(  91, 53),(  92, 114) 
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.( 93, 113),(  94, 118),(  95, 44),(- 1,-1000) 

-state  212 
.(-1,-355) 

-state  213 
.(-1.-154) 

-state  214 
.(-1.-155) 

-state  215 
.(-1.-156) 

-state  216 
.(-1.-157) 

-state  217 

.(4, 123).(29. 105),(61,115) 

.( 62, 106),(  63, 108),(  91, 53),(  92, 114) 

,( 93, 113),(  94, 118),(  95, 44),(- 1,-1 000) 

-state  218 

,( 4, 123),(  61, 115),(  63, 108),(  91, 53) 

,( 92, 114),(  93, 113),(  94, 118),(  95, 44) 
.(-I.-IOOO) 

-state  219 
.(-1.-134) 

-state  220 
.(-1.-135) 

-state  221 
.(-1.-136) 

-state  222 
,( 10, 172),(.l,-38) 

-state  223 
,( 3,311),(4, 123) 

.(-1.-159) 

-state  224 

.(-1.-121) 

-state  225 
.(-1.-329) 

-state  226 
.(14,202) 

.( 15, 200),(  16. 204),(  17.-76),(  18,-76) 

,( 19, 313),(  22, 201 ),( 23. 205),(  24, 203) 
,(56,-352),(62. 199),(- 1,-349) 

-state  227 
.(3,-108) 

,( 4,-108).(  10.-108),(  73, 314).(-1,-141) 

-state  228 
.(-1.-79) 

-state  229 
.(-1.-80) 

-state  230 
,(-1.-335) 


219 


-state  231 
.(-1.-109) 

—  state  232 

.( 32. 320),(  91. 53),(  94. 318).(  95. 44) 
.(-I.-IOOO) 

-state  233 

.(4. 123).(42.324),(43.323) 

,(73. 325),(91.53).(-1,-1000) 

-state  234 
.( 61.-451) 

.(80,328).(-l,-301) 

-state  235 

.(91.53).(94.118) 

.(95.44).(-l.-1000) 

-state  236 
.( 57, 63),(76, 330) 

.(-1,-1000) 

—  state  237 
,(91.53).(-1,-1000) 

-state  238 
.(-1.-411) 

-state  239 
.(91,332).(.1.-1000) 

-state  240 
,(91,53),(-1,-1000) 

-state  241 
,(-1.-17) 

-state  242 

,(34,335),(39,337),(49,339) 

,( 91, 65),(-l,-1000) 

-state  243 

,( 57, 340), (-1,-1000) 

-state  244 

.(-1.-222) 

-state  245 

.(3,341),(4, 123),(10.232) 

,(-1.-1000) 

-state  246 
.(-1.-108) 

—  state  247 
,(86.342),(-l,-101) 

-state  248 
.( 86, 343),(-l,-106) 

-state  249 

.(4,285),(13.346) 

.(57,344).(-l,-1000) 

-state  250 

,( 13. 347),(-l,-1000) 
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--state  251 
,(-1.-301) 

"State  2S2 
.(69,7),(-l.-333) 

"State  253 
,(52,22) 

,( 53, 28),(  68, 358),(  71, 25),(  82, 136) 
,( 86, 82),(-l,-85) 

"  state  254 
,(69,7),(-l,-332) 

"State  255 

,(l,361),(69,7),(-l,-364) 

"State  256 
,(49,363) 

.(-1.-383) 

"State  257 
,(-1,-301) 

"State  258 
,(13, 35),(57, 366) 

,(76, 235), (-1,-1000) 

"State  259 

,( 91, 236),(-l,.1000) 

"State  260 
,(85,238),(-l,-410) 

—  state  261 
,(47,367),(-l,-1000) 

"State  262 

,(4, 170),(  10, 172),(-l,-452) 

"State  263 
,( 36, 369) 

,(-1.-404) 

"State  264 
,(-1.-285) 

"State  265 
.(-1.-456) 

"State  266 
,( 18, 371) 

,(-1,-1000) 

"State  267 
,(-1,-288) 

--  state  268 
,( 18,-286),(-l,-101) 

"State  269 
,( 18,-287),(-l,-103) 

"State  270 
,(-1,-458) 

"State  271 
.(-1.-454) 
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-state  272 
.(-1.-282) 

"State  273 
.(-1.-314) 

"State  274 

,( 56, 374), ( 67, 375) 

.(-1.-397) 

—  state  275 

.(5,377),(13.378).(-1,-1000) 

"State  276 

.(-1.-202) 

"State  277 

,(4. 170),(  10. 172),(-l.-452) 

"State  278 

.( 57, 380),(-l,-1000) 

"State  279 
.(37,40).(-l,-1000) 

"  Slate  280 
,(37, 381).(-1,-1000) 

"State  281 
.(-1.-261) 

"State  282 
.(-1,-446) 

"State  283 
,(67,382),(.1..398) 

-state  284 
,(91,65).(.1,-1000) 

"State  285 
.(91.79).(-1,-1000) 

"State  286 
.(4,387),(31.395) 

,( 34, 396),(  42, 390),(  43, 389),(  58, 386) 
,( 73, 388),(-l,-406) 

"State  287 
,(57,399),(-l,-1000) 

"State  288 

,( 27. 401).(  91, 53).(  94, 118),(  95. 44) 

.(-1,-1000) 

"State  289 
,(13.402),(-1,-1000) 

"State  290 
.(91,403) 

.(-1,-1000) 

"State  291 
.(-1.-441) 

"State  292 
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.(8.405).(13.404) 

.(-I.-IOOO) 

--state  293 
.(-1.-306) 

-state  294 
.(-1.-3) 

-state  295 
.(-1.-338) 

—  state  296 

.{ 4. 123).(  7, 101),(  9, 102), ( 29. 105) 

,( 61. 115),(  62. 106).(  63, 108).(  91, 53) 
,( 92. 114).(  93. 113).(  94. 118),(  95. 44) 
.(-I.-IOOO) 

-state  297 
.(-1.-340) 

-state  298 
,(4. 123),(7. 101) 

,( 9. 102),(  29, 105),(  61, 115),(  62. 106) 
.( 63. 108),(  91, 53),(  92, 114).(  93. 113) 
,(94,118),(95.44),(-1,-1000) 

-state  299 
.(-1.-337) 

-state  300 

,( 4, 123).(  7. 101),(  9, 102).(  29. 105) 

,( 61, 115),(  62, 106),(  63, 108),(  91, 53) 
,( 92, 114),(  93, 113),(  94, 118),(  95, 44) 
.(-I.-IOOO) 

-state  30l 
.(-1.-339) 

-state  302 
.(4, 123),(7, 101) 

,( 9, 102),(  29, 105),(  61, 115),(  62, 106) 
,( 63. 108).(  91, 53),(  92, 114),(  93, 113) 
,(94,118),(95,44),(-1,-1000) 

-state  303 
.(-1.-343) 

-state  304 
.(-1.-344) 

-state  305 
.(-1.-350) 

-state  306 
,(4, 123),(7, 101) 

,( 9, 102).(  29, 105),(  61, 115),(  62, 106) 
.( 63. 108).(  91, 53),(  92, 114),(  93, 113) 
,(94,118),(95,44),(-1,-1000) 

-state  307 
.(-1.-356) 

-state  308 
.(-1.-358) 
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--state  309 
,(-1,-360) 

-state  310 
,(-1,-160) 

-state  311 
,(4, 123) 

.(-1,-1000) 

-state  312 

.(17, 415), (18. 414),(-1.-1000) 

-state  313 

,( 4, 123).(  7. 101).(  9, 102).(  29, 105) 

,( 61, 115),(  62. 106),(  63, 108),(  91, 53) 
,( 92, 114),(  93, 113),(  94. 118),(  95, 44) 
,(-1,-1000) 

-state  314 

.(4. 123),(7, 101),(  9, 102) 

,( 29, 105),(  61, 115),(  62, 106).(  63, 108) 
,( 91, 53).(  92, 1 14),(  93, 1 13),(  94, 1 18) 
.(95,44).(-l,-1000) 

-state  315 
,(  17,-77),(  18,-77) 

,(-1,-124) 

-state  316 

.(5,418),(8,419),(-1,-1000) 

-state  317 

,(-1,-111) 

-state  318 

,(-1,-112) 

-state  3l9 
,(-1,-113) 

-state  320 
,(-1,-114) 

-state  321 

,(-1,-110) 

-state  322 
,(-1,-116) 

-state  323 
,(-1,-117) 

-state  324 
,(-1,-118) 

"State  325 
,(-1,-119) 

-state  326 
,(-1,-115) 

-state  327 
,(-1.-361) 

-state  328 
,(13.420) 

.(-1,-1000) 
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“State  329 
,(13, 421), (-1,-108) 

“State  330 
.(91,65) 

,(-1,-1000) 

“State  331 
,(57,423),(-l,-1000) 

“State  332 
,(57,424) 

,(-1.-412) 

“State  333 
,(57,426),(-l,-1000) 

“State  334 
.(4, 123) 

,( 42, 435),(  43, 434),(  73, 314),(  76, 437) 
,(-1,-311) 

“State  335 
,(4,438),(-l,-1000) 

“State  336 
.(21,440) 

,(-1,-307) 

“State  337 

.(21,445),(34, 335),(91,65) 

,(-1,-1000) 

“State  338 
,(21,440),(-l,-307) 

“State  339 
.(13,448) 

,(76,447),(-l,-1000) 

“State  340 
,(91,65),(-1,-1000) 

“State  341 

,( 42, 324),(  43, 323),(  73, 325),(  91, 53) 

.(-1,-1000) 

“State  342 
,(35,450),(-l,-459) 

“State  343 
,(4, 123) 

,( 7. 101),(  9, 102),(  29, 105),(  61, 115) 

,( 62, 106),(  63, 108),(  91, 53),(  92, 114) 
,( 93, 113),(  94, 118),(  95, 44),(- 1,-1 000) 

stdtc  344 

,( 4, 459),(  31, 395),(  34, 396),(  42, 435) 
,( 43, 434),(  58, 386),(  61, 464),(  73, 314) 
,(74,463),(.l,-406) 

“State  345 
,(13,467),(57,466) 

,(-1,-1000) 

“State  346 
.(-1.-82) 

“State  347 
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.(-1.-295) 

--state  348 
,(35,468) 
,(69,7),(-l,-460) 
“State  349 
.(-1.-462) 

“State  350 
.(-1.-89) 

“State  351 
.(-1.-90) 

“State  352 
.(-1.-91) 

“State  353 
.(-1.-92) 

“State  354 
.(-1.-93) 


“State  355 
.(-1.-94) 

“State  356 
.(-1.-95) 

“State  357 
.(13,35),(57,234) 

.(-I.-IOOO) 

“State  358 

,(37,237),(91,39),(-1,-1000) 

“State  359 
.(-1.-301) 

“State  360 

,( 25, 488),(  28, 494),(  30, 501) 

,(  38, 499),(  41, 493), ( 50, 490),(  54, 492) 
,( 55, 498),(  63, 489), ( 72, 495),(  77, 491) 
,( 79, 506),(  91, 53),(  94, 1 18),(  95, 44) 
,(-1,-373) 

“State  361 
,(13,510),(-1,-1000) 

“State  362 
,(-1.-301) 


“State  363 
.(-1,-301) 

—  state  364 
,(47,514),(-1,-1000) 

“State  365 
.( 1. 148) 

( 51, 160),(  52, 22),(  53, 28),(  68, 259) 
,( 71, 25),(  81, 155),(  82, 260),(  85, 161) 
,(86,82),(91,79),(-l,-403) 

“State  366 
,(-1,-451) 
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--  state  367 
.(91.53).(-1.-375) 

—  state  368 

.(13, 517), (-1,-1000) 

-state  369 
.(-1.-301) 

-state  370 
,(47,519),(-1,-1000) 

-state  371 
.(4,123) 

.( 7, 101).(  9. 102),(  29, 105),(  61, 115) 

,( 62, 106),(  63. 108),(  91, 53).(  92, 114) 
,( 93, 113),(  94, 118),(  95, 44),(- 1,-1 000) 

-state  372 

,(5,521),(8.522),(-1,-1000) 

-state  373 
,(-1,-208) 

-state  374 
,(67.523),(-l.-398) 

-state  375 

.(-1,-210) 

-state  376 
,( 91,65) 

,(-1,-1000) 

-state  377 
,(-1.-206) 

-state  378 
,(91,79),(-1,-1000) 

—  state  379 

,( 13,526),(-1,-1000) 

-state  380 
.(-1,-301) 

-state  381 
,(91,53) 

,(-1,-1000) 

-state  382 
,(-1.-447) 

-state  383 
,(21,440),(-l,-307) 

-state  384 
,(12,529),(-1,-1000) 

-state  385 
,(-1,-325) 

-state  386 
,(-1,-407) 

-state  387 
,(27,531),(-1,-1000) 


227 


--state  388 
,(27, 532), (-1.-1000) 

-state  389 
,(27,533),(-l,-1000) 

—  state  390 
.(27.534).(-l.-1000) 

-state  391 
.(-1,-279) 

-state  392 
.(-1.-280) 

-state  393 
,(-1.-58) 

-state  394 
,(-1,-59) 

—  state  395 
,(91,65),(-1.-1000) 
-state  396 
.(4,536).(-l.-1000) 

-state  397 

,( 70, 537),(-l,-1000) 

-state  398 

,(  13, 538),(-l.-1000) 

—  state  399 

,( 58, 386),(-l,-406) 
-state  400 
,( 13,-449),(-l,-108) 

-state  401 
.(-1.-450) 

-state  402 
.(-1.-274) 

-state  403 
,(-1,-310) 

-state  404 
,(-1.-217) 

—  state  405 
,(91.65).(-1.-1000) 
-state  406 
.(-1,-346) 

-state  407 
,(-1.-348) 

-state  408 
.(-1.-345) 

-state  409 
.(-1,-347) 

-state  4l0 


.(3.-108), (4.-108) 

.( 5.-45),(  8,-45),(  10,-108),(  13,-45) 
,(  17,-45),(  18,-45),(  21,-45),(  33.-45) 
,( 57,-45),(  59,-45),(  65.-45),(  84,-45) 
,( 90,-45),(-l,-141) 

—  state  41 1 
.( 19,541),(-1.-1000) 


-state  412 
,(-1.-351) 

-state  413 
.(-1.-161) 

-state  414 
.(4. 123),(7. 101) 

,( 9, 102),(  29, 105),(  61, 115),(  62, 106) 
,( 63, 108),(  91, 53),(  92. 114),(  93, 113) 
,(94,118),(95,44),(-1,-1000) 

-state  415 
,( 1, 229) 

,’( 4,’  123),(  7, 101),(  9. 102),(  29, 105) 

,( 61, 115),(  62, 106),(  63, 108), ( 66, 228) 
.( 91, 53),(  92, 114),(  93, 113),(  94, 118) 
,(95.44),(-l,-1000) 

-state  416 
,(  17.-78),(  18,-78) 

,(-1.-123) 

-state  417 
,(-1,-44) 

-state  418 

,(-1.-120) 

-state  419 
,( 1, 229) 

k  A,  123),(  7, 101),(  9, 102),(  29, 105) 

,( 61, 115),(  62, 106),(  63, 108), ( 66, 228) 
,( 91, 53),(  92, 114),(  93, 113),(  94, 118) 
,(95,44),(-l,-1000) 

-state  420 
,(-1.-258) 

-state  421 

.(-1.-221) 


-state  422 

,( 10. 172),(  13, 547),(-l,-1000) 
-state  423 
,( 80, 548) 

,(-1.-301) 

-state  424 
.(-1.-301) 

-state  425 
.(-1.-223) 

-state  426 
,( 80, 552) 

.(-1.-301) 
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--state  427 
.(-1.-312) 

-state  428 
.(-1.-39) 

-  state  429 
.(-1.-40) 

-state  430 
.(-1.-41) 

-state  431 
.(-1.-42) 

-state  432 
,(73,314),(-1.-317) 


-state  433 
.(73.314).(-1.-317) 

-state  434 
,(4. 123).(7. 101) 

,( 9, 102), ( 29, 105),(  61, 115),(  62, 106) 
,( 63, 108),(  91, 53),(  92, 114),(  93, 113) 
,(94,118),(95,44),(-1,-1000) 

-state  435 
.(4, 123) 

,( 7, 101),(  9, 102),(  29, 105),(  61, 115) 

,( 62, 106),(  63, 108),(  91, 53),(  92, 1 14) 
,( 93, 113),(  94, 118),(  95, 44),(-l,-1000) 

-state  436 
.(-1.-37) 

-state  437 

,(91,53),(94,118),(95,44) 

,(-1,-1000) 

-state  438 

,(4,123),(7, 101),(9, 102) 

,( 29, 105),(  61, 115),(  62, 106),(  63, 108) 
,( 91. 53),(  92, 114),(  93, 113),(  94, 118) 
.(95,44),(-1,-1000) 

-state  439 

,( 64, 562),(-l,-1000) 

ststc  440 

,( 4, 123),(  7, 101),(  9, 102),(  29, 105) 

,( 61, 115),(  62, 106), ( 63, 108),(  91, 53) 
,( 92, 114),(  93, 113),(  94, 118),(  95, 44) 
.(-I.-IOOO) 

,(13,564),(-1,-1000) 

-state  442 
.(4, 123) 

,( 42, 435),(  43, 434),(  73, 314),(-1,-311) 


-state  443 
,(21,440),(-l,-307) 
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"State  444 
,(21,440),(-l,-307) 

-state  445 

,( 4, 123), ( 7. 101),(  9, 102),(  29, 105) 

.( 61, 115),(  62, 106),(  63, 108),(  91, 53) 
,(  92, 114),(  93, 113),(  94, 118),(  95, 44) 
,(-1,-1000) 

"State  446 
,(13,568),(-1,-1000) 

"State  447 
.(91,65) 

,(-1.-1000) 

"State  448 
.(-1.-262) 
ctAtA 

,( 13,570),(.1,-1000) 

--  state  450 

,( 4, 123),(  7, 101),(  9, 102),(  29, 105) 

,( 61, 115),(  62, 106),(  63, 108),(  91, 53) 
,( 92, 114),(  93, 113),(  94, 118),(  95, 44) 
,(-1,-1000) 

"State  451 

,( 13, 572),(-l,-1000) 

"State  452 
.(-1.-29) 

"State  453 
,(-1,-30) 

"“■uite  454 

.(--,-3i; 

"State  455 
,(-1.-32) 

"State  456 
,(-1.-33) 

"State  457 
,(-1,-34) 

"State  458 
,(-1,-35) 

—  state  459 
.(91,574),(94,575) 

.(-1,-1000) 

"State  460 
.(-1,-51) 

"State  461 
,(-1,-52) 

"State  462 
.(-1.-53) 

"State  463 
.(-1.-301) 
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-state  464 
,(91.65).(-1,-1000) 

-state  465 
.( 13.580) 

,(-1,-1000) 

-state  466 

.(4,459),(31.395),(34. 396) 

.(  42. 435),(  43. 434).(  58, 386), (  61, 464) 
.(73.314),(74,463),(-l,-406) 

-state  467 
,(-1.-83) 

-state  468 
,( 60,582).(-l.-1000) 

-state  469 
.(-1,-301) 

-state  470 
,(47,585) 

,( 91. 53),(  94. 118),(  95, 44),(-l,-1000) 

-state  471 
.(69.7),(-l,-334) 

-state  472 
.(-1,-167) 

-state  473 
,(-1,-168) 

-state  474 
,(-1.-169) 

-state  475 
.(-1.-170) 

-state  476 
,(-1.-171) 

-state  477 
.(-1,-172) 

-state  478 
,(-1,-173) 

—  state  479 
.(-1,-174) 

-state  480 
.(-1.-175) 

-state  481 
,(13.587) 

.(21.588),(-1.-108) 

-state  482 
,(-1.-177) 

-state  483 
,(-1.-178) 


-state  484 
,(-1.-179) 
-state  485 
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.(-1.-180) 
-state  486 
.(-1.-181) 

-  state  487 
.(-1.-182) 


-state  488 
.(91,53),(-1,-1000) 
-state  489 
.( 13,590),(-1.-1000) 


—  state  490 
.(91,65).(-l.-387) 

-state  491 
,(4.123).(7. 101) 

.(  9, 102),(  29, 105),(  61, 115),(  62, 106) 
,( 63, 108),(  91, 53),(  92, 1 14),(  93, 113) 
,(94,118),(95,44),(-1,-391) 

-state  492 
.(91,65) 

,(-1,-1000) 

-state  493 

,(4, 123),(7, 101),(9, 102) 

,( 29, 105),(  61, 115),(  62, 106),(  63, 108) 
,( 91, 53),(  92, 114),(  93, 113),(  94, 118) 
,(95,44),(.1,.1000) 

—  state  494 
,(91,53),(94,118) 

,(95,44),(-l,-1000) 

-state  495 
.(91,65),(-1,.387) 


-state  496 


,( 13, 599),(-l,-1000) 
-state  497 


,(12,600),(-1,-101) 


—  state  498 

,( 4, 123),(  7, 101),(  9, 102),(  29, 105) 

,( 61, 115),(  62, 106),(  63, 108),(  91, 53) 
,( 92, 114),(  93, 113),(  94, 118),(  95, 44) 
,(-1,-1000) 

-state  499 

,(4,123),(7, 101),(9, 102) 

,( 29, 105),(  61, 115),(  62, 106),(  63, 108) 
,( 91, 53),(  92, 114),(  93, 113),(  94, 118) 
,(95,44),(-l,.1000) 

-state  5()0 

,(40,605),(51,607) 

,(59,-377),(88,606),(-l,-381) 

-state  50l 
.(91,53) 

.(-I.-IOOO) 
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"State  502 
.(-1,-231) 

"State  503 
.(-1.-232) 

"State  504 
.(-1.-233) 

"State  505 
.(-1,-464) 

"State  506 
,(87, 614), (-1,-301) 

"State  507 
,(-1.-164) 

"State  508 
.(-1.-165) 

"State  509 
,(-1.-365) 

"State  510 
,(-1,-166) 

"State  511 
,(69,7) 

,(-1.-362) 

"State  512 

,(1,361),(45,-162),(  46,-162) 

,( 47,-162),(  49,-162),(  65,-162),(  87,-162) 
,(-1,-364) 

"State  513 

,(69,7),(87,627),(-l,-1000) 

"State  514 

,(91.42),(95,44),(-l,-400) 

"State  5l5 
,(-1,-376) 

"State  516 
.(-1,-213) 

"State  5l7 
,(-1,-281) 

"State  518 
,(49.363),(-l,-383) 

"State  519 
,(91.53),(-l.-375) 

-state  520 
,(-1,-457) 

"State  521 
.(-1.-284) 

"State  522 

,( 4, 123),(  7, 101),(  9, 102),(  29, 105) 

,( 61, 115),(  62, 106),(  63, 108), ( 91, 53) 

,( 92, 1 14),(  93, 1 13),(  94, 1 18),(  95, 44) 
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,(-1.-1000) 

--state  523 
.(-1,-209) 

—  state  524 
,(21,440),(-l,-307) 

-  state  525 
,(-1,-396) 

“State  526 
,(-1,-283) 

--  state  527 

,( 57, 634).(-l.-1000) 

"State  528 

,( 13, 635).(-l,-1000) 

"State  529 
,(91,65),(-1,-1000) 

"State  530 

,( 5,637),(13, 638),(-l.-1000) 

"State  531 
,(5,639) 

,(-1,-1000) 

"State  532 
,(-1,-276) 

"State  533 
,(-1.-277) 

"State  534 
,(-1,-278) 

"State  535 
.(-1,-81) 

"State  536 

,(4, 123),(7, 101), (9, 102) 

,( 29, 105),(  61, 115),(  62, 106),(  63, 108) 
,( 91. 53),(  92, 114),(  93, 113),(  94, 118) 
,(95,44),(.1,-1000) 

--  state  537 

,( 13, 642), (-1,-1000) 

"State  538 
.(-1,-272) 

--  state  539 

,( 70, 643).(-l,-1000) 

"State  540 
.( 10, 172) 

.(-1,-409) 

"State  541 

.(4, 123),(7, 101),(9.102) 

.( 29, 105).(  61, 115),(  62, 106),(  63, 108) 
.( 91. 53).(  92, 114),(  93, 113),(  94, 118) 
,(95,44),(-1..1000) 

"State  542 
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,(-1.-122) 

-state  543 
.(19.645) 

,(-1.-76) 

.( 3.-108).(  4,-108),(  10.-108) 
.(73.314).(-1,-141) 

~  state  545 
.(-1,-330) 

-state  546 
.(-1.-336) 

-state  547 

,(-1,-220) 

-state  548 

,( 13. 647).(-l.-1000) 

-state  549 
.(69.7) 

.(-1.-414) 

-state  550 
.(48.649),(-l.-416) 

-state  55i 
.( 36. 651) 

.(-I.-IOOO) 

-state  552 

,( 13. 652).(-l.-1000) 

-state  553 
,(-1.-318) 

-state  554 
,(-1.-54) 

-state  555 
.(-1.-56) 

-state  556 
,(-1,-55) 

-state  557 
,(-1.-57) 

-state  558 
.( 13. 653), (-1.-108) 

-state  559 
.(-1.-64) 

-state  560 
.(3,-108) 

.( 4.-108),(  5,-45),(  8,-45),(  10,-108) 
,(59.-45).(73.314).(-l,-141) 
-state  561 
.(-1.-321) 

-state  562 
,(91.65).(-1,-1000) 

-state  563 
.(-1.-308) 
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-state  564 
.(-1.-18) 

-state  565 

.( 13, 657).(-l,-1000) 

-state  566 

,( 13, 658).(-l,-1000) 

-state  567 

,( 13, 659),(-l,-1000) 

-state  568 

.(-1.-20) 

-state  569 
.( 10, 172) 

,( 13, 660),(-l,-1000) 

-state  57() 

.(-1,-36) 

-state  571 
.(13,661) 

.(-1,-1000) 

-state  572 
,(-1,-294) 

-state  573 
.(-1.-48) 

-state  574 
.(-1,-49) 

-state  575 
.(-1.-50) 

-state  576 
.(-1,-315) 

-state  577 
,(63,664),(69,7) 

,(-1.-323) 

-state  578 

,( 47, 665),(-l,-1000) 

-state  579 
,(-1,-43) 

-state  580 
.(-1.-27) 

-state  581 

,( 13, 666),(-l,-1000) 

-state  582 
.(4, 123) 

,( 7, 101),(  9, 102),(  29, 105),(  61, 115) 

,( 62, 106),(  63, 108),(  91, 53),(  92, 1 14) 
,( 93, 113),(  94, 118),(  95, 44),(- 1,-1 000) 

-state  583 
,(69,7),(-l,-461) 

-state  584 
,( 35, 668),(-l,-108) 
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--state  585 

,( 74, 669), (-1,-1000) 

-state  586 
,(-1.-301) 

-state  587 
.(-1,-176) 

-state  588 

,( 4, 123),(  7, 101),(  9, 102),(  29, 105) 

,( 61, 115),(  62, 106),(  63, 108), ( 91, 53) 
,(92, 114),(93, 113),(94, 118),(95,44) 
,(-1.-1000) 

-state  589 

,( 26, 672),(-l,-1000) 

-state  590 
.(-1.-184) 

-state  591 
,( 10, 172),(-l,-388) 

-state  592 
,( 87, 673),(-l,-389) 

-state  593 
,(-1.-392) 

-state  594 

,(  13, 675),(-l,-1000) 

-state  595 
.( 10, 172) 

,(  13, 676),(-l,-1000) 

-state  596 
,( 13,677),(-1,-1000) 

—  state  597 

,(8,-431),(13,-431),(-l,-108) 

-state  598 
,(13,679) 

,(-1.-1000) 

-state  599 
,(-1.-300) 

-state  6(X) 

,(-1,-374) 

-state  601 
.(-1.-187) 

-state  602 

,(  84, 680),(-l,-1000) 

-state  603 
,(57, 681), (-1,-1000) 


-state  604 
,(-1,-378) 
-state  605 
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,(-1.-301) 

—  state  606 
,( 1,684),(4,123) 

,( 7, 101), ( 9, 102), ( 29, 105),(  61, 115) 

,( 62, 106),(  63, 108),(  91, 53),(  92, 114) 
,( 93, 113),(  94, 118),(  95, 44),(-l,-1000) 


“  state  607 

,( 1, 687),(  91, 685),(-l,-1000) 

-state  608 
,( 59, 688) 

,(-1.-1000) 

—  state  609 

,( 36, 689),(-l,-1000) 

-state  610 
,(4,691) 

,(-1,-393) 

-state  611 
,(-1.-235) 

—  state  6l2 
.(30,501),(41,493) 

.( 69, 7),(  83, 696),(  91, 53),(  94, 118) 
,(95,44),(-l,-1000) 

-State  6l3 
,(-1.-424) 

-state  614 
,(4, 123) 

,( 7, 101),(  9, 102),(  29, 105),(  61, 115) 

,( 62, 106),(  63, 108),(  91, 53),(  92, 114) 
,( 93, 113),(  94, 118),(  95, 44),(- 1,-1 000) 

-state  615 
.(-1.-236) 

-state  6l6 
,(-1.-237) 

-state  617 
,(-1.-238) 

-state  618 
.(-1.-239) 


-state  619 
.(-1,-240) 
-state  620 
.(-1.-241) 
-state  621 
.(-1.-422) 
-state  622 
.(-1.-301) 


-state  623 
.(-1.-163) 
-state  624 


.(-1,-301) 
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-state  625 
.(-1.-385) 

-state  626 
.(87.627) 

.(-1.-384) 

—  state  627 

,( 66.705),(91,65).(-1.-1000) 

-state  628 
.(-1.-401) 

-state  629 
,(13.707),(-1.-1000) 

-state  630 
.(-1.-405) 

-state  631 

,( 13. 708),(-l,-1000) 

-state  632 
.(-1.-455) 

“State  633 
.(-1.-207) 

“State  634 
.(-1.-301) 

-state  635 
.(-1.-271) 

—  state  636 

,(21, 440), (-1.-307) 

-state  637 
.(-1.-72) 

“State  638 
,(91,79).(-1.-1000) 

-state  639 
.(-1.-275) 

**  ststc  640 

.( 3,-108).(  4,-108),(  5,-45),(  8,-45) 
,(10,-108).(73.711),(-1.-141) 

-state  641 
.(-1.-319) 

-state  642 
.(-1.-215) 

-state  643 

,( 13, 713),(-1.-1000) 

-state  644 
.(-1.-46) 

—  state  645 

,(4, 123).(7, 101),(9, 102),(29, 105) 

,( 61. 1 15),(  62, 106),(  63, 108),(  91, 53) 
,( 92, 114),(  93, 113),(  94, 118),(  95, 44) 
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,(-1.-1000) 

“State  646 
.(-1.-77) 

“State  647 
.(-1.-259) 

“State  648 
.(47.715) 

.(51.160),(-1.-1000) 

“State  649 
,(91,717).(-1,-1000) 

“State  650 
.(-1,-301) 

“State  651 
,(-1,-301) 

“State  652 
,(-1,-260) 

“State  653 
.(-1.-218) 

“State  654 
,(-1,-65) 

“State  655 

,(5,720).(8,721),(-1,-1000) 

“State  656 
.(-1,-61) 

“State  657 
,(-1.-19) 

“State  658 

.(-1,-21) 

“State  659 

,(-1.-22) 

“State  660 
,(-1.-219) 

“State  661 
,(-1,-299) 

“State  662 
,(5,722),(8,723) 

,(-1.-1000) 

“State  663 

,( 38, 725),(  91, 79), (-1,-1000) 

“State  664 

,( 13, 728),(-l,-1000) 

“State  665 
.(74.729),(-l,-1000) 

“State  666 
.(-1,-28) 

“State  667 

.( 13, 730),(-l,-1000) 


-state  668 
,(4, 123) 

,( 7, 101).(  9, 102).(  29, 105),(  61. 115) 

.( 62, 106),(  63, 108).(  91, 53),(  92. 114) 
,( 93, 113).(  94. 118).(  95. 44),(- 1,-1 000) 

-state  669 
.(13.732),(-1,-1000) 

-state  670 
.(69,7).(-l,-463) 


-state  671 

.( 13, 733).(-l,-1000) 

-state  672 
.(-1,-183) 

-state  673 
,(4. 123) 

,( 7, 101),(  9, 102),(  29, 105),(  61, 115) 

,( 62, 106),(  63. 108), ( 91, 53),(  92. 114) 
.( 93. 113).(  94, 118),(  95. 44),(-l,-1000) 

—  state  674 
,(13,735),(-1,-1000) 

-state  675 
.(-1.-198) 

-state  676 
.(-1.-199) 


-state  677 
.(-1.-230) 

-state  678 

,(8.737),(  13.736),(-1,-1000) 

-state  679 
.(-1.-266) 

-state  680 
.(-1.-301) 

-state  681 
.(-1.-301) 

-state  682 
.(-1.-382) 

-state  683 
.(-1.-191) 

-state  684 
.(-1.-192) 

-state  685 
,(56,741),(-1,-1000) 

-state  686 
.(-1.-193) 

—  state  687 
.(-1.-194) 
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-state  688 
.(-1.-301) 

"State  689 
.(-1.-301) 

-state  690 
.(-1.-418) 

-state  691 

.(4, 123), (7, 101).(9. 102) 

.( 29, 105),(  61, 115),(  62, 106),(  63, 108) 
,( 91, 745),(  92, 114),(  93, 113),(  94, 118) 
,(95,44),(-l,-1000) 

-state  692 
,(44.747).(-l.-420) 

-state  693 
,(13,749),(.1,-108) 

-state  694 
.(-1.-301) 

-state  695 
.(-1.-301) 

-state  696 
.(13,752),(-1,-1000) 

"State  697 
.( 18,753),(.1,-1000) 

-state  698 

.(45,754),(65.756),(-l,-368) 

-state  699 
.(1.361) 

,( 45,-429),(  47,-429),(  65,-429),(  69, 7) 
.(-1,-364) 

-state  7(X) 

.(-1,-430) 

-state  701 
,(45,757),(65,758) 

,(-1,-1000) 

-state  702 
,(69,7),(-l,-363) 

-state  703 
.(-1,-386) 

-state  704 
,( 10, 172),(-l,-264) 

-state  705 
.(-1.-265) 

-state  706 
,(-1.-442) 

"State  707 

,(-1.-211) 

"State  708 
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.(-1,-214) 

-state  709 
.(-1.-73) 

-state  710 
.(-1.-326) 

—  state  711 

,(  4, 123).(  7. 101), ( 9, 102),(  27, 760) 

,( 29, 105),(  61, 115),(  62, 106),(  63, 108) 
,(  91, 53),(  92, 114),(  93, 113),(  94, 118) 
,(95,44),(-l,-1000) 

-state  712 
,(5,761),(8,762) 

,(-1,-1000) 

-state  713 
.(-1.-216) 

-state  714 
.(-1.-78) 

-state  715 
.(91,53) 

.(-1.-375) 

—  state  716 
.(-1.-301) 

-state  717 
,(4,765).(-l,-393) 

-state  718 
,(69,7),(-l.-415) 

-state  719 
,(49, 363),(-l,-383) 


-state  720 


.(-1.-63) 
-state  721 


,(4,123),(7,101),(9,102) 

,(  29, 105), ( 61, 115),(  62, 106), ( 63, 108) 
,(  91, 53),(  92, 1 14),(  93, 1 13),(  94, 1 18) 
,(95,44),(-l,-1000) 

—  state  722 


.(-1.-47) 

—  state  723 


.(91,574) 

,(94,575),(-l,-1000) 
-state  724 
,(12,770),(-1,-1000) 


-state  725 
,(91,53),(-1,-1000) 
-state  726 
.(-1.-301) 

-state  727 
.(-1.-301) 
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--state  728 
.(-1,-301) 

"State  729 

.(-1.-66) 

"State  730 
.(-1.-297) 

-state  731 

,(73,775) 

,(-1,-1000) 

"State  732 
.(-1.-296) 

--  state  733 
,(-1.-185) 

"State  734 
.(-1.-390) 

"State  735 
,(-1,-197) 

"State  736 
,(-1.-244) 

—  state  737 
,(91,53),(94.118) 
,(95,44),(-l,-1000) 
"State  738 
.(-1.-366) 

"State  739 
,(69,7) 

,(87,778),(-l,-1000) 

—  state  740 
,(47,780),(-l,-1000) 

"State  741 
,(78,781),(-l,-379) 
"State  742 
,(47,783),(-l,-1000) 

"State  743 
,(49,363),(-l,-383) 
"State  744 
.(-1.-229) 

"State  745 
.(8,-309) 

,( 12,-309),(-l,-107) 
"State  746 
,(5,785),(-l,-1000) 

"State  747 
,(-1,-301) 

"State  748 
,( 13, 787),(-l,-1000) 
"State  749 
,(-1,-227) 
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"State  750 
,(-1.-426) 

-state  751 
.(-1.-427) 

—  state  752 
,(-1.-301) 

-state  753 
,(-1.-301) 

-state  754 
.(-1.-301) 

"State  755 
.(47,792).(-l,-1000) 

-state  756 
.(87,614) 

.(-1.-301) 

-state  757 
.(-1.-301) 

—  state  758 
,(-1,-301) 

—  state  759 
.(17.798) 

,(18. 797), (-1,-1000) 

-state  760 
,(-1.-62) 

-state  761 
,(64,799) 

.(-1,-1000) 

—  state  762 

,(91.53).(94,118),(95.44) 

.(-1,-1000) 

—  state  763 
,(-1.-413) 

"State  764 
,(69,7),(-l,-417) 

—  State  765 

,(  4, 123),(  7, 101),(  9, 102), (  29, 105) 

,( 61, 115),(  62, 106),(  63, 108),(  91, 745) 
,( 92, 114),(  93, 113),(  94, 118),(  95, 44) 
.(-1,-1000) 

-state  766 

,( 13, 803),(-l.-1000) 

"State  767 
.(47.804) 

.(-1,-1000) 

"State  768 
.(-1.-322) 

-state  769 
.(-1.-316) 

-state  770 
.(91.65) 

.(-I.-IOOO) 


246 


"  state  771 

.( 57, 807), (-1,-1000) 

-state  111 
,(47,-67) 

,(69,7),(87,-67),(-l,-324) 

-state  773 
.(69,7) 

.(-1.-68) 

-state  774 
,(69,7),(-l,-69) 

-state  775 
,(4, 123) 

,( 7, 101),(  9, 102),(  29, 105), ( 61, 115) 

,( 62, 106),(  63, 108),(  91, 53),(  92, 114) 
,( 93, 113),(  94, 118),(  95, 44),(-l,-1000) 

—  state  776 

,(8,-432),(13,-432),(-l,-108) 

-state  777 
,(45,754) 

,( 46, 810),(-l,-368) 

-state  778 
,(1,229),(4, 123) 

,(  7, 101),(  9, 102),(  29, 105).(  61, 115) 

,( 62, 106), ( 63, 108),(  66, 228),(  91, 53) 
,( 92, 1 14),(  93, 1 13),(  94, 1 18), ( 95, 44) 
,(-1,-1000) 

-state  779 
.(-1.-371) 

-state  780 
,(38,813),(-1,-1000) 


-state  781 
,(-1,-380) 

-state  782 

,(4, 123),(7, 101),(9,102) 

,( 29, 105),(  61, 115),(  62, 106),(  63, 108) 
,( 91, 53),(  92, 114),(  93, 113),(  94, 118) 
,(95,44),(.1,-1000) 

-state  783 
,(59,815),(-1,-1000) 


-state  784 
,( 47, 816),(-1,-1000) 
-state  785 
,(4,68),(-l,-393) 

-state  786 
,( 47, 818),(-1,-1000) 
-state  787 
,(-1.-228) 

-state  788 
.(69,7) 
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,(-1.-428) 

~  state  789 

,(30.501),(41.493),(69,7) 

,(83,696),(-l,-1000) 

--state  790 
.(-1.-425) 

-state  791 
.(-1.-369) 

-state  792 
.(79.819),(-1,-1000) 

-state  793 
.(-1.-423) 

-state  794 
.(47.820) 

,(-1,-1000) 

—  state  795 

,(41,493).(69,7),(-1,-1000) 

-state  796 
.(47. 821), (-1,-1000) 

-state  797 
.(-1,-301) 

-state  798 
,( 66, 705) 
.(91,65).(-1,-1000) 

-state  799 
,(91.65),(-1,-1000) 

-state  800 
.(73,825),(-l,-108) 

-state  80l 
,(-1.-320) 

-state  802 
.(5,826) 

,(-1,-1000) 

-state  803 
,(-1,-225) 

-state  804 
,(91.53),(-l,-375) 

-state  805 
,(-1.-71) 

—  state  806 
.(21.440),(-l.-307) 

-state  807 
.(-1.-301) 

-state  808 

,( 13, 830),(-1,-1000) 

-state  809 

,( 47, 831),(-1,-1000) 
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-state  810 

.( 4. 123), ( 7, 101),(  9, 102).(  29, 105) 

,( 61, 115),(  62, 106),(  63, 108),(  91, 53) 
,( 92, 1 14),(  93, 1 13),(  94, 1 18),(  95, 44) 
,(-1,-1000) 

"State  811 
.(-1.-329) 

-state  8l2 
,(87,778),(-l,-370) 

-state  813 

,( 13, 835),(-l,-1000) 

"State  814 
.(-1.-195) 

"State  8l5 
.(91,53) 

.(-1.-375) 

"State  816 
,(91,53),(-l,-375) 

"State  817 
.(-1,-419) 

"State  818 
,(91,53),(-l,-375) 

"State  819 

,( 13, 839), (-1,-1000) 

"State  820 
,(79,840),(-l,-1000) 

"State  821 
,(79,841),(.1,-1000) 

"State  822 
.(-1,-263) 

"State  823 
.(-1.-443) 

"State  824 
.(-1.-60) 

"State  825 
.(27,760) 

.(-I.-IOOO) 

"State  826 
,(4,68),(-l,-393) 

"State  827 
.(  13,843) 

.(-I.-IOOO) 

—  state  828 

,( 13, 844),(-l,-1000) 

"State  829 
.(69,7) 

,( 87, 845),(-l,-1000) 

"State  830 
.(-1.-298) 
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"State  831 
.(55.847) 

.(-1,-1000) 

"State  832 

,(  84, 848),(-l,-1000) 

"State  833 
,(17,415) 

,(18,849),(-1,-1000) 

"State  834 
.(-1.-372) 

"State  835 
,(-1,-188) 

"State  836 
,(13,850),(-1,-1000) 

"State  837 
,( 13,851).(-1,-1000) 

"State  838 
,(-1,-421) 

"State  839 
,(-1,-234) 

"State  840 
,(13,852),(.1,-1000) 

"State  841 
,(13,853),(-1,-1000) 

"State  842 
,(13.854),(-1.-1000) 

"State  843 
,(-1.-224) 

"State  844 
,(-1.-70) 

"State  845 
,(1,229),(4, 123) 

,(  7, 101),(  9, 102),(  29, 105), ( 61, 1 15) 
,( 62, 106),(  63, 108),(  66, 228),(  91, 53) 
,(  92, 1 14),(  93, 1 13),(  94, 1 18),(  95, 44) 
,(-1,-1000) 

"State  846 
,(-1,-327) 

"State  847 
,(13.857),(-1,-1000) 

"State  848 
.(-1,-301) 

"State  849 
,(-1,-301) 

"State  850 
.(-1.-190) 

-state  851 
,(-1.-196) 
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-state  852 
.(-1,-242) 

-state  853 
,(-1.-243) 

-state  854 
,(-1.-226) 

-state  855 
,(-1,-329) 

-state  856 

,( 47. 861),(  87, 845).(-l,-1000) 

-state  857 

.(-1,-186) 

-state  858 
.(-1.-367) 

-state  859 
,(-1.-189) 

—  state  860 
,(  17,415),(18,863) 

,(-1.-1000) 

-state  861 

,( 38. 864).(-l,-1000) 

-state  862 
.(-1.-328) 


-state  863 
,(-1,-301) 

-state  864 
,(  13, 866),(-l,-1000) 
-state  865 
,(-1,-75) 


-state  866 
,(-1.-74) 

); 

-  The  offset  veaor 

SHIFT_REDUCE_OFFSET  :  array  (0..  866)  of  Integer 

(0. 

1,8, 10,12,18,20,21,23,24,25, 

26, 27, 28, 29, 30, 31, 32, 35, 37, 39, 

42, 44, 47, 48, 50, 52, 56, 57, 58, 59, 

60, 62, 63, 65, 67. 68, 70, 71, 72, 74, 

76, 78, 79, 80, 81, 84, 86, 88, 91. 93, 

94, 95, 99, 100, 101, 103, 105, 118, 120, 121, 

133, 135, 137, 139, 141, 142, 145, 146, 148, 150, 

152, 155, 156, 158, 160, 162, 164, 165, 168, 169, 

170, 173, 175, 176, 177, 180, 181, 183, 185, 187, 

189, 191, 192, 196, 198, 207, 208, 212, 213, 224, 

229, 230, 231, 232, 234, 243, 252, 253, 254, 255, 

256, 260, 261, 262, 263, 265, 266, 267, 268, 269, 

270, 271, 272, 287, 291, 292, 293, 294, 295, 296, 
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297, 298, 299, 300, 304, 307, 310, 311, 312, 313, 

314, 315, 316, 317, 318, 319, 320, 321, 323, 324, 

325, 327, 328, 329, 330, 332, 334, 335, 336, 337, 

341, 343, 346, 347, 348, 349, 362, 364, 365, 366, 

379, 381, 383, 385, 386, 388, 390, 395, 396, 398, 

401, 403, 405, 406, 408, 410, 412, 413, 426, 439, 

452, 454, 467, 469, 483, 497, 510, 523, 536, 537, 

538, 539, 540, 541, 542, 543, 544, 546, 547, 548, 

549, 560, 561, 562, 563, 564, 565, 576, 585, 586, 

587, 588, 590, 593, 594, 595, 607, 612, 613, 614, 

615, 616, 621, 627, 630, 634, 637, 639, 640, 642, 

644, 645, 650, 652, 653, 657, 658, 660, 662, 666, 

668, 669, 671, 678, 680, 683, 685, 686, 690, 692, 

694, 696, 699, 701, 702, 703, 705, 706, 708, 710, 

711, 712, 713, 714, 717, 720, 721, 724, 726, 728, 

730, 731, 732, 734, 736, 738, 746, 748, 753, 755, 

757, 758, 761, 762, 763, 764, 777, 778, 791, 792, 

805, 806, 819, 820, 821, 822, 835, 836, 837, 838, 

839, 841, 844, 857, 870, 873, 876, 877, 878, 879, 

880, 881, 882, 883, 884, 885, 886, 887, 889, 891, 

893, 895, 897, 899, 905, 907, 909, 913, 915, 918, 

920, 925, 927, 940, 950, 953, 954, 955, 958, 959, 

960, 961, 962, 963, 964, 965, 966, 969, 972, 973, 

989, 991, 992, 993, 995, 1007, 1008, 1010, 1012, 1013, 

1015, 1028, 1031, 1032, 1034, 1035, 1037, 1038, 1040, 1042, 
1043, 1045, 1046, 1048, 1050, 1051, 1052, 1054, 1056, 1058, 
1060, 1061, 1062, 1063, 1064, 1066, 1068, 1070, 1072, 1074, 
1076, 1077, 1078, 1079, 1080, 1082, 1083, 1084, 1085, 1086, 
1102, 1104, 1105, 1106, 1119, 1134, 1137, 1138, 1139, 1154, 
1155, 1156, 1159, 1161, 1162, 1163, 1165, 1166, 1167, 1168, 
1169, 1170, 1172, 1174, 1187, 1200, 1201, 1205, 1218, 1220, 
1233, 1235, 1240, 1242, 1244, 1257, 1259, 1261, 1262, 1264, 
1277, 1279, 1280, 1281, 1282, 1283, 1284, 1285,  1286, 1289, 
1290, 1291, 1292, 1293, 1295, 1297, 1307, 1308, 1310, 1311, 
1316, 1318, 1319, 1320, 1321, 1322, 1323, 1324, 1325, 1326, 
1327, 1330, 1331, 1332, 1333, 1334, 1335, 1336, 1338, 1340, 
1342, 1355, 1357, 1370, 1374, 1376, 1378, 1380, 1393, 1406, 
1411, 1413, 1414, 1415, 1416, 1417, 1419, 1420, 1421, 1422, 
1423, 1425, 1433, 1436, 1439, 1440, 1441, 1442, 1444, 1446, 
1447, 1448, 1461, 1462, 1464, 1465, 1466, 1468, 1470, 1472, 
1475, 1477, 1478, 1479, 1480, 1481, 1494, 1496, 1497, 1499, 
1501, 1514, 1515, 1517, 1522, 1523, 1524, 1525, 1527, 1529, 
1531, 1533, 1535, 1536, 1537, 1538,  1539, 1540,  1542, 1543, 
1551, 1552, 1554, 1555, 1556, 1558, 1560, 1562, 1563, 1566, 
1567, 1569, 1570, 1571, 1572, 1573, 1574, 1577, 1579, 1580, 
1581, 1583, 1596, 1598, 1600, 1602, 1603, 1604, 1617, 1619, 
1620, 1622, 1624, 1625, 1627, 1630, 1632, 1635, 1637, 1638, 
1639, 1640, 1642, 1644, 1645, 1646, 1660, 1663, 1665, 1667, 
1669, 1670, 1678, 1679, 1692, 1693, 1694, 1695, 1696, 1697, 
1698, 1699, 1700, 1701, 1702, 1703, 1705, 1708, 1709, 1711, 
1712, 1714, 1715, 1716, 1717, 1718, 1720, 1721, 1723, 1724, 
1731, 1732, 1733, 1735, 1736, 1749, 1750, 1751,  1754, 1756, 
1757, 1758, 1759, 1760, 1761, 1764, 1765, 1766, 1767, 1768, 
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1769, 1770, 1773, 1776, 1778, 
1800, 1802, 1803, 1816, 1818, 
1826, 1827, 1828, 1829, 1830, 
1837, 1850, 1852, 1854, 1855, 
1870, 1873, 1875, 1876, 1878, 
1884, 1898, 1901, 1902, 1903, 
1913, 1926, 1927, 1930, 1932, 
1939, 1941, 1942, 1943, 1944, 
1956, 1958, 1960, 1962, 1963, 
1973, 1974, 1975, 1976, 1977, 
1987, 1989, 1993, 1994, 1996, 
2017, 2019, 2023, 2025, 2027, 
2064, 2065, 2078, 2080, 2082, 
2095, 2096, 2098, 2099, 2101, 
2114,2115,2117,2118,2120, 
2141,2142,2144,2146,2147, 
2158,2160,2161,2162,2163, 
2175,2177,2179,2182,2183, 
2192,2194,2196,2197,2198, 
2219, 2220, 2221, 2222, 2223, 
2233, 2235, 2236, 223  7  2239, 
end  Ada_Shift_Reduce; 


1780, 1781,  1783,  1796, 1798, 
1819, 1820, 1821,  1824, 1825, 
1832, 1833,  1834, 1835, 1836, 
1856, 1858,  1860, 1863, 1869, 
1879, 1880, 1881, 1882, 1883, 
1905, 1906, 1908, 1910, 1912, 
1934, 1935, 1936, 1937, 1938, 
1945, 1946, 1950, 1951, 1954, 
1966, 1968, 1969, 1971, 1972, 
1979, 1981, 1982, 1983, 1986, 
2009,2011,2013,2014, 2015, 
2040, 2043, 2046, 2061, 2062, 
2084, 2086, 2087, 2089, 2094, 
2104,2106, 2107,2110,2112, 
2121,2123,2124,2126,2128, 
2149,2151,2152,2154,2156, 
2165,2167,2169,2171,2174, 
2184,2186,2188,2189,2190, 
2213, 2214, 2216, 2217, 2218, 
2224, 2227, 2228, 2229, 2230, 
2240); 
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-  ADA_GOTO.A 
package  Ada.Goto  is 

type  Small_Integer  is  range  -32_000 ..  32_000; 

type  Goto_Entry  is  record 
Nonterm  :  Small_Integer; 

Newstate :  Sniall_Integer; 
end  record; 

-pragma  supprcss(index_check); 

subtype  Row  is  Integer  range  -1 ..  Integer'Last; 

type  Goto_Parse_Table  is  array  (Row  range  o)  of  Goto_Entry; 

Goto_Matrix  :  constant  Goto_Parse_Table  := 

((-1,-1)  —  Dummy  Entry. 

-  State  0 

,(-193, 1),(-61, 2),(-2, 3) 

-State  1 
.(-201.5) 

,(-195,4).(-194.6) 

“State  2 
,(-3,8) 

“State  3 

“State  4 
,(-215.21) 

,(-208,26),(-207, 19),(-200, 23),(-199. 16) 

.(-198, 15),(-197, 30),(-196, 29),(-165, 18) 

,(-155, 17),(-84, 27),(-83, 14),(-17, 13) 

.(-15, 12),(-13, 11),(-12, 10) 

-State  5 
.(-202,32) 

-State  6 
,(-61, 33) 

“State  7 

“State  8 

-  State  9 
-State  10 
“State  11 
“State  12 
“State  13 
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--State  14 


-State  15 

-State  16 

-State  17 

-State  18 

-State  19 

-State  20 

-State  21 

-State  22 
,(-157.45),(-86.43) 

-State  23 

-State  24 

-State  25 

-State  26 
.(-165,51) 

,(-155, 50) 

-  State  27 

-State  28 
,(-209,52) 

-State  29 

-State  30 

-State  31 
,(-68,54) 

-State  32 
.(-241,56) 

,(-61,55) 

-State  33 
.(-3,8) 

-State  34 
,(-4,58) 

-State  35 

-State  36 
,(-163,62) 

,(-74,60),(-73,59),(-61,61) 
-State  37 

-State  38 
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-State  39 


-State  40 
,(-68,64) 

-State  41 
.(-39.66) 

-  State  42 

-State  43 

-State  44 

,(-158, 67),(-156, 69) 

-State  46 
,(-39,71) 

CfOtA  A*? 

.(-158,67),(-156,72) 

-State  48 
.(-157.73).(-86,43) 

-State  49 

-State  50 

“State  51 

“State  52 

,(-210,80),(-27,77),(-20,75) 

“State  53 

-State  54 
,(-203,81) 

-State  55 
,(-3.8) 

-State  56 
,(-79.83) 

-State  57 
,(-235.94),(-234,85) 

,(-115, 116),(-113,99),(-110, 110),(-109, 109) 
,(-107, 104),(-106, 103),(-105, 100),(-104, 98) 
,(-103, 97).(-102, 96),(-100, 93),(-99, 92) 
,(-98. 91),(-97. 90).(-96, 89),(-95, 88) 

.(-90, 124),(-89, 122),(-88, 121),(-87, 120) 
,(-86, 119),(-68. 117),(-47,95),(-46,  111) 
.(-44, 112),(-7, 107),(-6, 86).(-5, 84) 

-State  58 

“State  59 
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--State  60 

,(-228. 162),(-227, 159), (-226, 158),(-225, 157) 
,(-224, 150),(-223, 149), (-215, 2l),(-208, 26) 
,(-207, 19),(-170, 156),(-165. 18),(-155, 134) 
.(-85, 133).(-84, 132),(-83, 131), (-82, 127) 
.(-81, 126),(-79. 130),(-78, 129).(-77, 164) 
.(-75, 163),(-27. 154),(-26. 153),(-25. 152) 
.(-20. 151),(-19, 147), (-18. 146),(-17, 145) 
.(-16. 144).(-15, 143),(-14, 142),(-13, 141) 
.(-12, 140),(-11. 139).(-10. 138).(-9, 137) 

.(-8, 128) 

-State  61 
.(-3.8) 

-State  62 

-State  63 
.(-74, 166),(-61, 61) 


-State  64 


-State  65 
-State  66 

.(-216, 169),(-214, 171) 
-State  67 

-State  68 

,(-159, 174),(-20, 173) 
-State  69 
-State  70 

-  State  71 

-State  72 

-State  73 
,(-158, 67),(-156, 69) 
-State  74 

-State  75 

-State  76 

-State  77 

-State  78 
,(-155, 181) 

-  State  79 
.(-24, 182) 


257 


--State  80 

"State  81 

"State  82 
,(-39, 185) 

"State  83 
.(-61. 186) 

"State  84 

"State  85 

"State  86 

"State  87 

"State  88 

-State  89 

"State  90 

"State  91 

"State  92 

"State  93 

"State  94 

,(-236, 207),(-ll  1,198) 

,(-101,206) 

—  State  96 

"State  97 

.(-112,211) 

"State  98 

—  State  99 

,(-115,116),(-110, 110) 

,(-109, 109),(-107, 104),(-106, 103),(-105, 100) 
.(-104, 212).(-90, 124).(-89. 122),(-88, 121) 
,(-87, 120),(-86, 119),(-68, 117),(-46,  111) 
.(-44. 112),(-7. 107) 

"State  idO 
.(-114.217) 

"State  101 

"State  102 

"State  103 
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--State  104 
.(-108.219) 

“State  105 

.(-115. 116).(-110. 110).(-109. 109).(-107.220) 
.(-90. 124).(-89. 122).(-88. 121).(-87. 120) 
.(-86. 119).(-68. 117).(-46.  lll).(-44. 112) 

,(-7. 107) 

“State  106 

.(-115. 116).(-110. 110).(-109. 109) 
.(-107.221).(-90. 124).(-89. 122).(-88. 121) 
.(-87. 120).(-86. 119).(-68. 117), (-46.  Ill) 
.(-44, 112),(-7. 107) 

“State  107 

“State  108 

“State  109 

“State  110 

“State  111 

“State  112 

“State  113 

“State  114 

“State  115 
,(-39,222),(-37,223) 

“State  116 

“State  117 

“State  118 

“State  119 

“State  120 

“State  121 

“State  122 

“State  123 

,(-235, 94), (-115, 116), (-113, 99),(-110, 110) 
,(-109, 109),(-107, 104),(-106, 103),(-105, 100) 
,(-104, 98),(-103, 97),(-102, 96),(-100, 93) 

,(-99. 92),(-98, 9l),(-97, 90),(-96, 89) 

,(-95, 88),(-93, 230),(-90, 124),(-89, 122) 

,(-88, 121),(-87, 120),(-86, 119),(-7 1,225) 
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,(-68, 117),(-47, 226),(-46, 227),(-44, 1 12) 
,(-7, 107),(-6,224) 

-State  l24 
,(-44,231) 

-State  125 

-State  126 

-State  127 

-State  128 

-State  129 

-State  130 

-State  131 

-State  132 

-State  133 

-State  134 

-State  135 

-State  136 
,(-171,239) 

-State  137 

-State  138 

-State  139 

-State  140 

-State  141 

-State  142 

-State  143 

-State  144 

-State  145 

-State  146 

-State  147 

-State  148 
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--State  149 


-State  150 
-State  151 
-State  152 
-State  153 
-State  154 
-State  155 
-State  156 
-State  157 
-State  158 
-State  159 
-State  160 

,(-90. 245).(-89, 248), (-88, 121),(-87, 120) 
.(-86, 119).(-68, 247).(-46. 246) 

-State  161 

-State  162 
,(-44.250) 

-State  163 
,(-76,253),(-61,252) 

-State  1^ 

.(-61,254) 

-State  165 
,(-116, 256) 

.(-61,255) 

-State  166 

.(-228, 162),(-227, 159),(-226, 158) 

,(-225, 157),(-224, 150),(-223, 149),(-215,21) 
,(-208, 26),(-207, 19),(-170, 156),(-166, 261) 
,(-165, 18),(-155, 258),(-79, 130),(-78, 129) 
,(-77, 164),(-27, 154),(-26, 153),(-25, 152) 
,(-20, 151),(-19, 147), (-18, 146),(-17, 145) 
,(-16, 144),(-15. 143),(-14. 142),(-13, 141) 
.(-12, 140),(-11, 139),(-10, 138),(-9, 137) 

,(-8, 128) 

-State  167 
.(-39,262) 

-State  168 
,(-163.263),(-74.60) 

,(-73,59),(-61,61) 

-State  169 
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-State  170 
,(-235,94).(-222.267) 

,(-221, 265),(-220, 266),(-219. 264),(-217, 271) 
,(-115, 116),(-113,99),(-110, 110),(-109, 109) 
,(-107, 104),(-106, 103),(-105, 100),(-104, 98) 
,(-103, 97),(-102, 96),(-100, 93),(-99, 92) 

,(-98, 91),(-97, 90),(-96, 89),(-95, 88) 

,(-90, 124),(-89. 122),(-88, 121),(-87, 120) 

.(-86, 269),(-68, 268),(-47, 95),(-46.  Ill) 

,(-44. 112),(-7, 107).(-6,270) 

-State  171 

-State  172 

-State  173 

-State  174 
,(-160, 275) 

-State  175 
,(-39.222),(-37,276) 

-State  176 
.(-39.277) 

-State  177 
,(-155,278) 

,(-85. 133),(-84, 132),(-83. 131).(-81.281) 

-State  178 
,(-74,166),(-61,61) 

-State  179 
,(-211,284),(-162, 282) 

-State  180 
.(-29.287) 

-State  181 
,(-213, 289) 

-State  182 

-State  183 

-State  184 
.(-68.291) 

-State  185 
.(-169,292) 

-State  186 
.(-3.8) 

-State  187 

-State  188 

.(-235,94),(-115,116),(-113,99) 

.(-no.  110),(-109, 109),(-107, 104), (-106, 103) 
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,(-105, 100),(-104, 98),(-103, 97),(-102, 96) 
,(-100, 93),(-99, 92),(-98, 91),(-97, 90) 

,(-96, 89),(-95, 88),(-90, 124),(-89, 122) 

,(-88, 121),(-87, 120),(-86, 119),(-68, 117) 
,(-47, 95),(-46, 111),(^,  112),(-7, 107) 
,(-6,86),(-5,293) 

—  State  189 
,(-235,94),(-115,116) 

,(-113, 99),(-110, 110),(-109, 109),(-107, 104) 
,(-106, 103),(-105, 100),(-104, 98),(-103, 97) 
,(-102, 96),(-100, 93),(-99, 92),(-98, 91) 

,(-97, 90),(-96, 89),(-95, 88),(-90, 124) 

,(-89, 122),(-88, 121),(-87, 120),(-86, 119) 
,(-68, 117),(-47, 95),(-46,  lll),(-44, 112) 

,(-7, 107), (-6, 294) 

-State  IW 
,(-115,116),(-113,99) 

,(-110, 110),(-109, 109),(-107, 104),(-106, 103) 
,(-105, 100),(-104, 98),(-103, 97),(-102, 96) 
,(-100, 295),(-90, 124),(-89, 122),(-88, 121) 
,(-87, 120),(-86, 119),(-68, 117),(-47, 95) 

,(-46,  lll),(-44, 112),(-7, 107) 

-State  191 

-State  192 
.(-115,116) 

,(-113, 99),(-110, 110),(-109. 109),(-107, 104) 
,(-106, 103),(-105, 100),(-104, 98),(-103, 97) 
,(-102, 96),(-100, 297),(-90, 124),(-89, 122) 
,(-88, 121),(-87, 120),(-86, 119),(-68, 117) 
,(-47,95),(-46,  lll),(-44, 112),(-7, 107) 

-State  193 

-State  194 

,(-115, 116),(-113,99),(-110, 110),(-109, 109) 
,(-107, 104),(-106, 103),(-105, 100),(-104, 98) 
,(-103, 97),(-102, 96),(-100, 299),(-90, 124) 
,(-89, 122),(-88, 121), (-87, 120),(-86, 119) 
,(-68, 117).(-47, 95),(-46,  lll),(-44, 112) 

.(-7, 107) 

—  State  195 

,(-115, 116),(-113, 99),(-110, 110) 

,(-109, 109),(-107, 104),(-106, 103),(-105, 100) 
,(-104, 98),(-103, 97),(-102, 96),(-100, 301) 
,(-90, 124),(-89, 122),(-88, 121),(-87, 120) 
,(-86, 119),(-68, 117),(-47,95),(-46,  111) 

,(-44, 112),(-7, 107) 

-State  196 
,(-115,116),(-113,99) 

,(-110, 110),(-109, 109),(-107, 104),(-106, 103) 
,(-105, 100),(-104, 98),(-103, 97),(-102, 96) 
,(-100, 303),(-90, 124),(-89, 122),(-88, 121) 
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.(-87. 120).(-86. 119).(-68. 117).(-47.95) 

.(-46.  lll).(-44. 112).(-7. 107) 

-State  197 
,(-115,116) 

.(-113, 99),(-110. 110),(-109, 109),(-107, 104) 
,(-106, 103),(-105, 100),(-104. 98),(-103. 97) 
.(-102, 96),(-100, 304),(-90, 124),(-89. 122) 
,(-88. 121).(-87, 120).(-86. 119),(-68, 117) 
.(-47, 95).(-46,  lll),(-44, 112),(-7. 107) 

-State  198 

,(-115, 116).(-113, 99),(-110, 110),(-109, 109) 
,(-107, 104).(-106, 103),(-105. 100),(-104. 98) 
.(-103,97),(-90. 124),(-89. 122).(-88. 121) 
.(-87, 120),(-86, 119),(-68. 117),(-47, 305) 
.(-46,  lll).(-44, 112),(-7. 107) 

-State  199 

-State  200 

-State  201 

-State  202 

-State  203 

-State  204 

-State  205 

-State  206 

-State  207 

-State  208 

-State  209 

-State  210 

-State  211 
,(-115.116) 

,(-110, 110),(-109, 109),(-107, 104),(-106, 103) 
,(-105, 100).(-104, 307),(-90, 124),(-89, 122) 
,(-88, 121),(-87, 120),(-86. 119),(-68, 117) 
.(-46,  lll),(-44. 112).(-7. 107) 

-State  212 


-State  213 
-  State  214 
-State  215 


264 


"State  216 


"  State  217 
.(-115,116) 

,(-110, 110),(-109, 109),(-107, 104).(-106, 308) 
,(-90, 124), (-89. 122),(-88. 121), (-87, 120) 
.(-86. 119),(-68, 117),(-46,  lll).(-44. 112) 

.(-7, 107) 

"State  218 

,(-115, 116).(-110. 110),(-109. 109) 

,(-107, 309).(-90. 124),(-89, 122),(-88, 121) 
,(-87, 120).(-86, 119).(-68, 117),(-46,  111) 
,(-44, 112).(-7, 107) 

"State  219 

"State  220 

"State  221 

-  State  222 

"State  223 
,(-44. 310) 

—  State  224 

"State  225 
,(-72,312) 

"State  226 

,(-236, 207),(-lll,  198),(-101, 206) 

"State  227 
.(-41.315) 

"State  228 

--  State  229 

"State  230 
,(-94,316) 

"State  231 

"State  232 

,(-91, 321),(-86, 319), (-68, 317) 

--  State  233 

,(-92, 326),(-68, 322),(-44, 327) 

"State  234 
.(-163.62) 

,(-74,60).(-73.59),(-61.61) 

"State  235 
,(-90,245) 

,(-89, 122),(-88, 121),(-87, 120), (-86, 119) 
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,(-68.117).(^.  329) 
-State  236 


-  State  237 
.(-68, 331) 

-State  238 

-State  239 

-State  240 
,(-68, 333) 

-State  241 

-State  242 

,(-39, 222),(-37, 334),(-23, 338),(-21, 336) 

-State  243 

-State  244 

-State  245 
.(-44,231) 

—  State  246 

-State  247 

-State  248 

-State  249 
.(-29, 345) 

-State  250 

-State  251 
,(-229,349),(-61,348) 

-State  252 
,(-3,8) 

-State  253 

.(-215,21),(-208,26),(-207,19) 

,(-170, 156), (-165, 18),(-155, 357),(-85, 133) 
,(-84, 132),(-83, 131),(-82, 127),(-81, 126) 
,(-80, 359),(-79, 355),(-75, 350),(-17, 356) 
,(-15, 354),(-14, 353),(-13, 352),(-12, 351) 

-State  254 
.(-3.8) 

-State  255 

,(-120,360),(-117, 362),(-3,8) 

-State  256 
.(-151, 364) 

-State  257 
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.(-74,365),(-61,61) 
--State  258 

-State  259 

-State  260 
,(-171, 239) 

-State  261 

-State  262 
,(-216, 169),(-214, 368) 
-State  263 
,(-167, 370) 

-State  264 

-State  265 

-  State  266 

-  State  267 

-State  268 

-State  269 

-State  270 

-State  271 
,(-218, 372) 

-State  272 

-  State  273 

-State  274 
,(-162, 373),(-161,376) 
-State  275 

-State  276 

-State  277 
,(-216, 169),(-214, 379) 

-  State  278 
-State  279 
-State  280 
-State  281 

-  State  282 
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-State  283 


“State  284 
,(-39, 222), (-37, 383) 

“State  285 
,(-66, 385),(-20, 384) 

“State  286 

,(-212, 398),(-168, 397),(-54, 393).(-35, 392) 
,(-33,391),(-23,394) 

“State  287 

“State  288 
,(-90,245),(-89, 122) 

,(-88, 121),(-87, 120),(-86, 119),(-68, 117) 
.(-46,400) 

--  State  289 

-State  290 

“State  291 

“State  292 


“State  293 
“State  294 
“State  295 
“State  296 

,(-115, 116),(-113, 99),(-110, 110) 

,(-109, 109),(-107, 104), (-106, 103),(-105, 100) 
,(-104, 98),(-103, 97),(-102, 96),(-100, 406) 
,(-90, 124),(-89, 122),(-88, 121),(-87, 120) 
,(-86, 119),(-68, 117),(-47, 95),(-46,  111) 

,(-44, 112),(-7, 107) 

--  State  297 

—  State  298 
,(-115,116),(-113,99) 

,(-110, 110),(-109, 109),(-107, 104),(-106, 103) 
,(-105, 100),(-104, 98),(-103, 97),(-102, 96) 
,(-100, 407),(-90, 124),(-89, 122), (-88, 121) 
,(-87, 120),(-86, 119),(-68, 117).(-47, 95) 

,(-46,  lll),(-44, 112),(-7, 107) 

“State  299 

“State  300 
.(-115,116) 

,(-113,99),(-110, 110),(-109, 109),(-107, 104) 
,(-106, 103),(-105, 100),(-104, 98),(-103, 97) 
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,(•102, 96),(-100, 408),(-90, 124),(-89, 122) 
,(-88,  121),(-87, 120),(-86, 119),(-68, 117) 
,(-47, 95),(-46,  lll),(-44, 112),(-7, 107) 

-State  301 

-State  302 

,(-115, 116),(-113, 99),(-110, 110),(-109, 109) 
,(-107, 104),(-106, 103),(-105, 100), (-104, 98) 
,(-103, 97),(-102, 96),(-100, 409),(-90, 124) 
,(-89, 122),(-88, 121),(-87, 120),(-86, 119) 
,(-68, 117),(-47, 95),(-46,  lll),(-44, 112) 

.(-7, 107) 

-State  303 

-State  304 

-State  305 

-State  306 

,(-115,116),(-113,99),(-110,110) 

,(-109, 109),(-107, 104), (-106, 103), (-105, 100) 
,(-104, 98),(-103, 97),(-90, 124), (-89, 122) 
,(-88, 121),(-87, 120),(-86, 119),(-68, 117) 
,(-47, 411),(.46, 410),(-45, 412),(-44, 112) 

,(-7. 107) 

-State  307 

-State  308 

-State  309 

-State  310 

-State  311 
.(-44,413) 

-State  312 

-State  313 
,(-115,116),(-113,99) 

,(-110, 110),(-109, 109),(-107, 104),(-106, 103) 
,(-105, 100),(-104, 98),(-103, 97),(-90, 124) 
,(-89, 122),(-88, 121),(-87, 120),(-86, 119) 
,(-68, 117),(-47,416),(-46,  lll),(-44, 112) 

.(-7, 107) 

-State  314 

,(-115,116),(-113,99),(-110,110) 

,(-109, 109),(-107, 104),(-106, 103),(-105, 100) 
,(-104, 98),(-103, 97),(-90, 124),(-89, 122) 
,(-88, 121),(-87, 120),(-86, 119),(-68, 117) 

,(-47, 41 1),(^,  410),(-45, 417),(-44, 1 12) 

,(-7, 107) 

-State  315 
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-State  316 


-State  317 
-State  318 
-State  319 
-State  320 
-State  321 
-State  322 
-State  323 
-State  324 
-State  325 

—  State  326 
-State  327 
-State  328 

-  State  329 

-State  330 
.(-39.422) 

-State  331 

-State  332 
,(-172,425) 

-State  333 

-State  334 
.(-53,433) 

,(-51, 432),(-44, 431),(-43, 430),(-42, 429) 
,(-41,428),(-40,427),(-38, 436) 

-State  335 
.(-57,439) 

-State  336 
,(-22,441) 

-State  337 

,(-39,222),(-37,442),(-23,444) 

.(-21,443) 

-State  338 
.(-22.446) 

-State  339 
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--State  340 
,(-39.222).(-37.442) 

,(-21,449) 

-State  341 
,(-92, 326),(-68, 322) 

-State  342 

-State  343 
,(-115,116) 

,(-113, 99),(-110, 110),(-109, 109),(-107, 104) 
,(-106, 103),(-105, 100),(-104, 98),(-103, 97) 
,(-90, 124),(-89, 122),(-88, 121), (-87, 120) 
,(-86, 119),(-68, 117),(-47,451),(-46,  111) 
,(-44, 112),(-7, 107) 

-State  344 
,(-168, 397),(-54, 393) 

,(-53, 433),(-51, 432),(-43, 462), (-42, 461) 
,(-41, 460),(-36, 458),(-35, 457),(-34, 456) 
,(-33, 455),(-32, 454),(-31, 453),(-30, 452) 
,(-28,465),(-23,394) 

-State  345 

—  State  346 

-State  347 

-State  348 
,(-231,469),(-3,8) 


-State  349 
,(-230, 470) 

-State  350 

-  State  351 
-State  352 
-State  353 
-State  354 
-State  355 
-State  356 
-State  357 
-State  358 

-  State  359 
,(-61,471) 

-State  360 

,(-233, 496),(-180, 504) 
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.(-179, 503),(-178, 502),(-144, 500),(-138, 509) 
.(-137, 487).(-136, 486),(-135. 485).(-134. 484) 
.(-133, 483),(-132, 482),(-131, 480).(-130, 479) 
,(-129, 478).(-128, 477),(-127, 476),(-126, 475) 
.(-125, 474),(-124. 473),(-123. 472), (-122, 508) 
,(-121,507),(-115, 116),(-110,505),(-90, 124) 
.(-89. 122),(-88. 121),(-87, 120),(-86, 119) 
,(-68.497),(-46.481) 

-State  361 

-State  362 
.(-118.512),(-61.511) 

-State  363 
,(-61.513) 

—  State  364 

—  State  365 

,(-228, 162),(-227. 159),(-226. 158) 

,(-225, 157),(-224. 150).(-223, 149),(-215, 21) 
,(-208.26),(-207, 19),(-170, 156),(-165, 18) 
.(-155, 258),(-79, 130),(-78, 129),(-77, 164) 
,(-27, 154).(-26. 153),(-25, 152),(-20, 151) 
,(-19. 147),(-18. 146),(-17, 145),(-16, 144) 
,(-15, 143).(-14, 142).(-13, 141),(-12, 140) 
,(-11. 139).(-10, 138).(-9, 137).(-8, 128) 

-State  366 

-State  367 
,(-146,516),(-68,515) 

-State  368 

-State  369 
,(-116,518),(-61,255) 

-State  370 

-State  371 

,(-235, 94),(-222, 267),(-221, 520),(-115, 116) 
,(-113, 99),(-110, 110),(-109, 109),(-107, 104) 
,(-106, 103),(-105, 100),(-104, 98),(-103. 97) 
,(-102, 96).(-100, 93),(-99. 92),(-98, 91) 

,(-97. 90),(-96, 89),(-95. 88),(-90. 124) 

,(-89, 122).(-88, 121),(-87, 120),(-86, 119) 
,(-68. 117),(-47, 95),(-46,  111), (-44, 112) 

.(-7, 107).(-6.270) 

-State  372 

-State  373 

-State  374 
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--State  375 


-State  376 
,(-39, 222), (-37, 524) 

-State  377 

-State  378 
,(-159,525),(-20, 173) 

-State  379 

-State  380 
,(-163, 62),(-74, 60) 
,(-73,59),(-61,61) 

-State  381 
,(-68, 527) 

-State  382 

-State  383 
,(-22,528) 

-State  384 

-State  385 
.(-67,530) 

-State  386 

-State  387 

-State  388 

-State  389 

-State  390 

-State  391 

-State  392 

-State  393 

-State  394 

-State  395 

,(-39, 222),(-37, 442),(-21, 535) 

-State  396 
,(-57,439) 

-State  397 

-State  398 

-State  399 
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,(-168.539) 

—  State  400 

-State  401 

-State  402 

-State  403 

-State  404 

-State  405 
,(-39.540) 

-State  406 

-State  407 

-State  408 

-State  409 

-State  410 

-State  411 

-State  412 

-State  413 

—  State  414 
(-235  94) 

’,(-115’.  116), (-113, 99),(-110, 110),(-109. 109) 
,(-107, 104),(-106, 103),(-105, 100),(-104, 98) 
,(-103, 97),(-102, 96),(-100, 93),(-99, 92) 
,(-98, 91),(-97, 90),(-96. 89),(-95, 88) 

,(-90. 124),(-89, 122),(-88, 121),(-87, 120) 
,(-86, 119).(-68, 117),(-47, 95), (-46,  111) 
,(-44, 112),(-7. 107),(-6, 542) 

-State  415 
,(-115,116) 

,(-113, 99), (-110, 110),(-109, 109),(-107, 104) 
,(-106, 103),(-105, 100),(-104, 98), (-103, 97) 
.(-90. 124),(-89, 122),(-88, 121),(-87. 120) 
,(-86, 119),(-71.545).(-68, 1 17),(-47, 543) 
,(-46.544).(-44,112).(-7, 107) 

-State  416 

-State  417 

-State  418 

-State  419 
.(-235.94) 


2' 
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,(-115. 116),(-113,99),(-110. 110).(-109, 109) 
,(-107, 104),(-106, 103).(-105. 100),(-104, 98) 
,(-103, 97).(-102, 96),(-100, 93),(-99, 92) 
.(-98, 91),(-97. 90),(-96, 89).(-95, 88) 
,(-93,546),(-90, 124),(-89. 122),(-88, 121) 
,(-87, 120),(-86, 119),(-71.225),(-68, 117) 
,(-47, 226),(-46. 227),(-44. 112).(-7. 107) 
,(-6,224) 

“State  420 

“State  421 

“State  422 

--  State  423 

.(-163, 263),(-74, 60).(-73, 59) 

.(-61.61) 

—  State  424 
,(-239, 550),(-61, 549) 

“State  425 

“State  426 
,(-163,551) 

,(-74,60),(-73,59).(-61.61) 

“State  427 

“State  428 

“State  429 


--  State  430 

“State  431 

“State  432 
.(-52,554) 

.(-41,553) 

“State  433 
.(-52,555).(-41,553) 

—  State  434 
,(-115,116) 

,(-113,99),(-110, 110),(-109, 109),(-107, 104) 
,(-106, 103),(-105, 100),(-104, 98),(-103, 97) 
.(-90, 124),(-89, 122),(-88, 121),(-87, 120) 
.(-86. 119).(-68, 117),(-47, 556),(-46,  111) 
.(-44, 112),(-7, 107) 

“State  435 
.(-115.116).(-113,99) 

,(-110, 110),(-109, 109),(-107, 104), (-106, 103) 
,(-105, 100),(-104, 98),(-103, 97),(-90, 124) 
.(-89, 122),(-88, 121),(-87, 120),(.86, 119) 
,(-68, 117),(-47,557),(-46,  111), (-44, 112) 

.(-7, 107) 
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--State  436 


-State  437 

,(-90, 245),(-89, 122),(-88, 121) 

,(-87, 120),(-86, 119),(-68, 117),(-46, 558) 

-State  438 

,(-115, 116),(-113, 99),(-110, 110),(-109, 109) 
,(-107, 104),(-106, 103),(-105, 100),(-104, 98) 
,(-103, 97),(-90, 124), (-89, 122),(-88, 121) 
,(-87, 120),(-86, 119),(-68, 117).(-58.561) 
,(-47, 411),(-46, 560),(-45, 559), (-44, 1 12) 
.(-7. 107) 

-State  439 


Stfltc  440 

,(-235,94),(-115,116),(-113,99) 

,(-110, 110),(-109, 109), (-107, 104), (-106, 103) 
,(-105, 100),(-104, 98),(-103, 97),(-102, 96) 
,(-100, 93),(-99, 92),(-98, 91),(-97, 90) 

,(-96, 89),(-95, 88),(-90, 124),(-89, 122) 

,(-88, 121),(-87, 120),(-86, 119),(-68, 117) 
,(-47, 95),(-46,  lll),(-44, 112),(-7, 107) 
.(-6,563) 

-State  441 

-State  442 

.(-53.433),(-51.432),(-44.431) 

,(-43, 430),(-42, 429),(41, 428),(-40, 427) 
,(-38,436) 

-State  443 
.(•22,565) 

-State  444 
,(-22.566) 

-State  445 
,(-235, 94) 

!(-115!  116),(-113,  99).(-110,  110),(-109,  109) 
,(-107, 104),(-106, 103),(-105, 100),(-104, 98) 
,(-103, 97),(-102, 96).(-100, 93),(-99, 92) 

,(-98, 91),(-97, 90),(-96. 89),(-95, 88) 

,(-90, 124),(-89, 122),(-88, 121),(-87, 120) 
,(-86, 119),(-68, 117),(-47, 95),(-46,  111) 
,(-44,112),(-7, 107).(-6,567) 

-State  446 

-State  447 
,(-39,569) 


-State  448 


-State  449 
-  State  450 
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.(-115, 116), (-113, 99),(-110, 110),(-109. 109) 
,(-107, 104),(-106, 103),(-105, 100),(-104. 98) 
.(-103, 97),(-90, 124).(-89, 122),(-88, 121) 
,(-87, 120),(-86, 119),(-68. 117).(-47, 571) 
,(-46,  lll),(-44, 112),(-7, 107) 

-State  451 

-State  452 

-State  453 

-State  454 

-State  455 

-State  456 

-State  457 

-State  458 

-State  459 
.(-50,573) 

.(-48,576) 

-State  460 


-State  461 

-State  462 

-State  463 
,(-61,577).(-60.578) 

-State  464 
,(-39.222) 

,(-37,442),(-21,579) 

-State  465 

-State  466 
.(-168.539),(-54, 393) 

,(-53, 433),(-51, 432),(-43, 462),(-42, 461) 
,(-41, 460),(-36, 458),(-35, 457),(-34, 456) 
,(-33, 455),(-32, 454),(-31, 453),(-30, 452) 
,(-28,581),(-23.394) 

-State  467 

-State  468 

-Stale  469 
,(-61,583) 

-State  470 
,(-232, 586) 

,(-90, 245),(-89. 122), (-88, 121),(-87. 120) 
,(-86.119).(-68,117),(-46, 584) 
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-State  471 
,(-3,8) 

-State  472 

-  State  473 

-State  474 

-State  475 

-State  476 

-State  477 

-State  478 

-State  479 

-State  480 

-State  481 

-State  482 

-State  483 

-State  484 

-State  485 

-State  486 

-State  487 

-State  488 
,(-68, 589) 

-State  489 

-State  490 
,(-152,592),(-39,591) 

-State  491 
,(-235, 94) 

’,(-154’,  594),(-115, 116),(-113, 99),(-110, 110) 
,(-109, 109),(-107, 104),(-106, 103),(-105, 100) 
,(-104, 98),(-103, 97),(-102, 96),(-100, 93) 
,(-99, 92),(-98, 91),(-97, 90),(-96, 89) 

,(-95, 88),(-90, 124), (-89, 122),(-88, 121) 

,(-87, 120),(-86, 119),(-68, 117),(-47, 95) 

,(-46,  lll),(-44, 112),(-7, 107),(-6, 593) 


-State  492 
,(-39.595) 
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“State  493 

,(-115, 116).(-113,99).(-110,110) 

,(-109, 109),(-107, 104),(-106, 103),(-105, 100) 
,(-104, 98),(-103, 97),(-90, 124),(-89, 122) 
,(-88, 121),(-87, 120),(-86, 119),(-68, 117) 
,(-47.596),(-46,  lll),(-44, 112),(-7, 107) 

“State  494 

,(-90, 245),(-89, 122), (-88, 121),(-87, 120) 
,(-86,119),(-68,117),(-46, 597) 

—  State  495 
,(-152, 598) 

,(-39, 591) 

“State  496 

“State  497 

“State  498 

,(-235, 94),(-139, 602),(-115, 116) 

,(-113, 99),(-110, 110),(-109, 109),(-107, 104) 
,(-106, 103),(-105, 100),(-104, 98),(-103, 97) 
,(-102, 96),(-100, 93),(-99, 92),(-98, 91) 

,(-97, 90),(-96, 89),(-95, 88),(-90, 124) 

,(-89, 122),(-88, 121),(-87, 120),(-86, 119) 
,(-68, 117),(-47, 95),(-46,  lll),(-44, 112) 

,(-7, 107),(-6, 601) 

“State  499 
,(-235,94),(-115,116) 

,(-113,99),(-110, 110),(-109, 109),(-107, 104) 
,(-106, 103),(-105, 100),(-104, 98),(-103, 97) 
,(-102, 96),(-100, 93),(-99, 92),(-98, 91) 

,(-97, 90),(-96, 89),(-95, 88),(-90, 124) 

,(-89, 122),(-88, 121),(-87, 120),(-86, 119) 
,(-68, 117),(-47, 95),(-46,  lll),(-44, 112) 

,(-7, 107),(-6, 603) 

“State  5()0 
,(-150, 609),(-147, 604) 

,(-145, 608) 

“State  501 
,(-68, 610) 

“State  502 

“State  503 

“State  504 

“State  505 

“State  506 
,(-190, 620),(-189, 619) 

,(-188, 618),(-187, 617),(-186, 616),(-185, 615) 
,(-184, 613),(-183, 611),(-181, 621),(-174, 622) 
.(-61.612) 
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-State  507 

"State  508 

-State  509 

-State  510 

-State  511 
.(-3.8) 

-Stale  512 
,(-120. 360).(-119. 623) 

.(-117.624) 

-State  513 

,(-238, 626),(-204, 625),(-3, 8) 

-  State  514 

,(-164, 629),(-157, 628), (-86, 43) 

-State  515 

-State  516 

-State  517 

-State  518 
,(-151, 630) 

-State  519 
,(-146, 631),(-68,515) 

-State  520 

-State  521 

-State  522 
,(-235.94),(-222,267) 

,(-221, 265),(-220, 266),(-219, 264).(-217, 632) 
,(-115, 116), (-113, 99),(-110, 110),(-109, 109) 
,(-107, 104),(-106, 103),(-105, 100), (-104, 98) 
.(-103, 97),(-102, 96).(-100, 93),(-99. 92) 

,(-98, 91),(-97, 90).(-96, 89),(-95, 88) 

.(-90. 124),(-89. 122),(-88, 121),(-87, 120) 
,(-86. 269),(-68. 268),(-47,  95), (-46.  Ill) 
,(-44,112),(-7. 107),(-6, 270) 

-State  523 

-State  524 
.(-22,633) 

-State  525 


-State  526 
-State  527 
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-State  528 


“State  529 
.(-39, 222), (-37, 636) 
-State  530 

-  State  531 

-  State  532 

-  State  533 

-  State  534 
“State  535 


“State  536 
,(-115,116),(.113,99) 

,(-110, 110).(-109, 109),(-107, 104), (-106, 103) 
,(-105, 100),(-104, 98),(-103. 97),(-90, 124) 
,(-89, 122),(-88, 121),(-87, 120),(-86, 119) 
,(-68, 117),(-58, 561),(-55, 641),(-47, 411) 
.(-46, 640),(-45, 559),(-44.  U2),(-7, 107) 

“State  537 

“State  538 

“State  539 

“State  540 

“State  541 

,(-115, 116),(-113, 99),(-110, 110),(-109, 109) 
,(-107, 104),(-106, 103),(-105, 100),(-104, 98) 
.(-103, 97),(-90. 124),(-89, 122),(-88, 121) 
,(-87, 120),(-86, 119),(-68, 117),(-47, 644) 
,(-46.  lll),(-44. 112),(-7, 107) 

“State  542 

“State  543 

“State  544 
.(-41.646) 

“State  545 

--  State  546 

“State  547 

“State  548 
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--State  549 
,(-3.8) 

—  State  SSO 
,(-240, 648),(-173, 650) 

"State  551 

"State  552 

"State  553 

"State  554 

"State  555 

"State  556 

"State  557 

"State  558 

"State  559 

"State  560 
.(-41,654) 

"State  561 
,(-59, 655) 

"State  562 

,(-39,222),(-37,442),(-21,656) 

"State  563 

"State  564 

"State  565 

"State  566 

"State  567 

"State  568 

"State  569 

"State  570 

"State  571 

"State  572 

--  State  573 
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-State  574 

-State  575 

-State  576 
,(-49,662) 

-State  577 
.(-62,663),(-3, 8) 

-State  578 

-  State  579 

-State  580 

-State  581 

-State  582 
,(-115.116) 

,(-113, 99),(-110, 110),(-109, 109),(-107, 104) 
,(-106, 103),(-105, 100),(-104, 98),(-103, 97) 
.(-90, 124).(-89, 122),(-88, 121),(-87, 120) 
,(-86, 119),(-68, 117).(-47.667).(-46,  111) 
,(-44, 112),(-7, 107) 

-State  583 
,(-3,8) 

-State  584 

-State  585 

-State  586 
,(-61,670) 

-State  587 

-State  588 

,(-235,94),(-115, 116),(-113,99),(-110, 110) 
,(-109, 109), (-107, 104),(-106, 103),M05, 100) 
,(-104, 98),(-103, 97),(-102, 96),(-100, 93) 
,(-99, 92),(-98, 91), (-97, 90),(-96, 89) 
,(-95,88),(-90, 124),(-89, 122),(-88, 121) 

,(-87, 120),(-86, 119),(-68. 117), (-47, 95) 

,(-46,  lll),(-44, 112),(-7, 107),(-6, 671) 

-State  589 

-State  590 

-State  591 

-State  592 
.(-153,674) 

-State  593 
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-State  594 


-State  595 

-State  596 

-State  597 
,(-192,678) 

-State  598 

-State  599 

-State  6(X) 

-State  601 

-State  602 

-State  603 

-State  604 

-State  605 
,(-74,60),(.73,682) 

,(-61.61) 

-State  606 

.(-235, 94), (-139, 683), (-115, 116) 

.(-113, 99),(-110, 110),(-109. 109), (-107, 104) 
,(-106, 103), (-105, 100), (-104, 98),(-103, 97) 
,(-102, 96),(-100, 93),(-99, 92),(-98, 91) 

,(-97. 90),(-96, 89),(-95, 88),(-90, 124) 

,(-89, 122),(-88. 121),(-87, 120),(-86, 119) 
,(-68, 117),(-47, 95),(-46,  111), (-44, 112) 

,(-7, 107),(-6,601) 

-State  607 
,(-148,686) 

-State  608 

-State  609 

-State  610 
,(-175,692) 

,(-158, 67),(-156, 690) 

-State  611 

—  State  612 
,(-136, 694),(-128, 695) 

,(-90.245),(-89, 122),(-88, 121),(-87, 120) 
.(-86. 119).(-68. 117),(-46. 693),(.3, 8) 

-State  613 

-State  614 
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,(-235. 94).(-139, 697), (-1 15, 1 16),(-1 13, 99) 
,(-110, 110),(-109, 109).(-107, 104), (-106, 103) 
.(-105, 100),(-104, 98),(-103, 97),(-102. 96) 
.(-100, 93),(-99, 92),(-98. 91),(.97. 90) 

,(-96. 89).(.95. 88).(-90, 124),(-89, 122) 

,(-88, 121),(-87, 120),(-86, 119),(-68, 117) 
,(-47,95),(-46,  lll),(-44. 112).(-7. 107) 
.(-6,601) 

-State  615 

-State  616 

-State  617 

-State  618 

-State  619 

-State  620 

-State  621 
,(-182, 698) 

-State  622 
,(-191.701),(-116,700) 

.(-61.699) 

-State  623 

-State  624 
,(-61,702) 

-State  625 

-State  626 
,(-204,703) 

-State  627 
,(-205, 706) 

,(-39.704) 

-State  628 

-State  629 

-State  630 

-State  631 

-State  632 

-State  633 

—  State  634 

,(-163.551).(-74,60),(-73,59) 

.(-61,61) 

-State  635 
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-State  636 
,(-22,709) 

—  State  637 


—  State  638 
,(-66,710),(-20, 384) 

-State  639 

-State  640 
,(-41.654) 

-State  641 
,(-56,712) 

-State  642 

-State  643 

-State  644 

-State  645 
,(-115,116),(-113,99) 

,(-110, 110),(-109, 109), (-107, 104),(-106, 103) 
,(-105, 100),(-104, 98),(-103, 97), (-90, 124) 
,(-89, 122),(-88, 121),(-87, 120),(-86, 119) 
,(-68, 117),(-47,714).(-46,  lll),(-44, 112) 

,(-7, 107) 

-State  646 

-  State  647 
-State  648 

,(-228, 162),(-227, 159),(-226, 158) 

,(-225, 157),(-224, 150),(-223, 149),(-78,716) 

-State  649 

-State  650 
,(-61,718) 

-State  651 
,(-116,719),(-61,255) 

-State  652 

-State  653 

-State  654 

-State  655 

-State  656 

-State  657 

-State  658 
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--State  659 
-State  660 


-State  661 
-State  662 

-  State  663 
<"-64  7271 

163!  726), (-20. 724) 

-State  664 

-State  665 

—  State  666 

-State  667 

-State  668 
,(-115,116).(-113,99) 

,(-110, 110).(-109, 109),(-107, 104),(-106, 103) 
,(-105, 100),(-104, 98),(-103, 97),(-90, 124) 
,(-89. 122), (-88, 121), (-87, 120),(-86, 119) 
,(-68, 117),(-47, 731).(-46,  lll),(-44, 112) 

,(-7, 107) 

-State  669 

-State  670 
,(-3,8) 

-State  671 

-State  672 

-State  673 
t-235  941t-139  7341 

,’(-115;  116), (-113, 99),(-110, 110),(-109, 109) 
,(-107, 104),(-106, 103),(-105, 100),(-104, 98) 
,(-103, 97),(-102, 96).(-100, 93),(-99, 92) 

,(-98, 91),(-97, 90),(-96, 89),(-95, 88) 

,(-90, 124).(-89. 122),(-88, 121),(-87, 120) 
,(-86, 119).(-68. 117),(-47,95),(-46,  111) 
,(-44.112),(.7, 107),(-6,601) 

-State  674 

-State  675 

-State  676 

-State  677 

-State  678 
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-State  679 


-State  680 
,(-116,738) 

.(-61,255) 

-State  681 
,(-142,740),(-61,739) 

-State  682 

-State  683 

-State  684 

-State  685 

-State  686 

-State  687 

-State  688 
,(-116,742) 

,(-61,255) 

-State  689 
,(-116, 743),(-61,255) 

-State  690 

-  State  691 
,(-235, 94) 

’.(-177!  746),(-159, 174),(-]  15, 116),(-113, 99) 
,(-110, 110), (-109, 109), (-107, 104),(-106, 103) 
,(-105, 100),(-104, 98),(-103, 97),(-102, 96) 
,(-100, 93),(-99, 92),(-98, 91), (-97, 90) 

,(-96, 89),(-95, 88),(-90, 124), (-89, 122) 

,(-88, 121), (-87, 120), (-86, 119),(-68, 117) 
,(-47,95),(-46,  lll),(-44, 112), (-20, 173) 

,(-7, 107),(-6,744) 

-State  692 
,(-176, 748) 

-State  693 

-State  694 
,(-191,750) 

,(-116,700),(-61,699) 

—  State  695 
,(-191,751),(-116,700) 

.(-61,699) 

-State  696 


-State  697 

-State  698 
,(-141,755) 
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--State  699 
,(-120,360).(-117, 362) 

,(-3.8) 

-State  7(X) 

-State  701 

-State  702 
,(-3.8) 

-State  703 

-State  704 

-State  705 

-State  706 
,(-206,759) 

-State  707 

-State  708 

-  State  709 

-State  710 

-State  711 
.(-115,116) 

,(-113,99),(-110, 110),(-109, 109),(-107, 104) 
,(-106, 103),(-105, 100),(-104, 98),(-103, 97) 
,(-90, 124),(-89, 122),(-88, 121),(-87, 120) 
,(-86, 119),(-68, 117),(-47,411),(-46,410) 
,(-45.417),(-44, 112),(-7, 107) 

-  State  712 

-State  713 

-State  714 

-State  715 
,(-146,763) 

,(-68,515) 

-  State  716 
,(-61,764) 

-  State  717 

,(-158, 67),(-156, 766) 

-State  718 
,(-3,8) 

-State  719 
,(-151,767) 

-  State  720 

-  State  721 
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.(-115,116),(-113.99) 

,(-110, 110), (-109, 109),(-107, 104), (-106, 103) 
,(-105, 100),(-104, 98),(-103, 97),(-90, 124) 
,(-89, 122),(-88, 121),(-87, 120),(-86, 119) 
,(-68, 117),(-58, 768),(-47, 411),(-46, 560) 
,(-45,559),(-44,112),(-7,107) 

-State  722 

-  State  723 
,(-50,573) 

,(-48,769) 

-  State  724 

-State  725 
,(-68,771) 

-State  726 
,(-61,772) 

-State  727 
,(-61,773) 


-State  728 
,(-61,774) 

-State  729 

-State  730 

-State  731 

-  State  732 

-  State  733 
-State  734 
-State  735 
-State  736 

-  State  737 

,(-90,245),(-89, 122),(-88, 121) 

,(-87, 120),(-86, 119),(-68, 117),(-46, 776) 

-State  738 
,(-140,777) 

-State  739 
,(-143,779),(-3,8) 

-State  740 

-State  741 
,(-149,782) 

-State  742 
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-  State  743 
.(-151,784) 

-State  744 

-State  745 
.(-24. 182) 

-State  746 

-State  747 
.(-116.786).(-61.255) 

-State  748 

-State  749 

-State  750 

-State  751 

-State  752 
.(-61.788) 

-State  753 

.(-190. 620).(-189, 619).(-188, 618) 

.(-187, 617),(-186, 616),(-185, 615),(-184, 790) 
.(-61.789) 

-State  754 
,(-116,791).(.61.255) 

-State  755 

-State  756 
,(-190, 620) 

,(-189, 619),(-188, 618),(-187, 617),(-186, 616) 
,(-185, 615),(-184, 613),(-183, 611),(-181, 793) 
.(-61, 789) 

-  State  757 

,(-116, 794), (-61, 255) 

-State  758 
,(-189,619) 

,(-186,796),(-61,795) 

-State  759 

-State  760 

-State  761 

-  State  762 
,(-90.245),(-89, 122) 

,(-88, 121),(-87,  120),(-86, 119),(-68, 117) 
,(-55, 801),(-46, 800) 

-  State  763 

-State  764 
.(-3,8) 
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--State  765 
.(-159. 174) 

,(-115, 116), (-113, 99),(-110, 110),(-109, 109) 
.(-107, 104),(-106, 103),(-105, 100), (-104, 98) 
,(-103.97),(-90, 124),(-89, 122),(-88, 121) 
,(-87, 120).(-86, 11 9), (-68, 117),(-58, 802) 
,(-47. 411), (-46, 560).(-45. 559),(-44, 112) 
,(-20. 173),(-7. 107) 

-State  766 

-  State  767 

-State  768 

-State  769 

-State  770 
,(-65, 806).(-39, 222) 

,(-37.442),(-21,805) 

-State  771 

-  State  772 
,(-3.8) 

-State  773 
.(-3,8) 

-State  774 
,(-3,8) 

-State  775 

,(-115, 116),(-113, 99), (-110, 110) 

,(-109, 109),(-107. 104),(-106, 103),(-105, 100) 
,(-104, 98),(-103, 97),(-90, 124),(-89, 122) 
,(-88, 121),(-87, 120),(-86, 119),(-68, 117) 
,(-47, 411), (-46, 410),(-45,  808),(-44, 112) 

,(-7, 107) 

-State  776 

-  State  777 
.(-141,809) 

-State  778 
,(-115,116),(-113,99) 

,(-110, 110),(-109, 109).(-107, 104),(.106, 103) 
,(-105, 100),(-104, 98),(-103, 97),(-90. 124) 
,(-89, 122),(-88, 121),(-87, 120),(-86, 119) 
.(-71, 811),(-68. 117),(-47, 543),(-46, 544) 
.(-44, 112).(-7, 107) 

-State  779 
.(-237,812) 

-State  780 

-State  781 

-State  782 
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.(-115.116) 

,(-113. 99), (-110, 110),(-109. 109),(-107. 104) 
,(-106, 103),(-105, 100),(-104, 98).(-103. 97) 
,(-90, 124).(-89, 122),(-88, 121),(-87, 120) 
,(-86, 119),(-68, 117),(-58, 814),(-47, 411) 
,^-46, 560),(-45. 559).(-44. 112).(-7. 107) 

-State  783 

-State  784 

-State  785 
,(-158, 67),(-156, 817) 

-State  786 

-State  787 

-State  788 
.(-3,8) 

-State  789 
,(-136, 694) 

,(-128.695).(-3,8) 

-State  790 

-State  791 

-  State  792 

-  State  793 

-State  794 

-State  795 
,(-128, 695), (-3. 8) 

-State  796 

-State  797 
,(-116, 822),(-61,255) 

-State  798 
,(-205, 823),(-39. 704) 

-State  799 

,(-39.222).(-37.442),(-21,824) 

-State  800 

-State  801 

-State  802 

-State  803 

-State  804 
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,(-146.827) 
,(-68. 515) 
-State  805 


-State  806 
,(-22,828) 

-State  807 
.(-61,829) 

-State  808 

-State  809 

-State  810 
(-235  94) 

!(-139!  832),(-115, 116).(-113, 99),(-110, 110) 
,(-109, 109).(-107, 104), (-106, 103),(-105, 100) 
.(-104, 98).(-103, 97).(-102. 96),(-100, 93) 
,(-99. 92),(-98. 91),(-97, 90),(-96, 89) 

,(-95. 88),(-90, 124).(-89, 122),(-88, 121) 

,(-87, 120),(-86, 119),(-68, 117),(-47, 95) 

,(-46,  lll).(-44, 112),(-7, 107),(-6,  601) 

-State  811 
.(-72, 833) 

-State  812 
,(-143.834) 

-  State  813 

-State  814 

-  State  815 

,(-146, 836),(-68, 515) 

-State  816 
,(-146, 837),(-68, 515) 

-State  817 

-State  818 
,(-146, 838),(-68,515) 

-State  819 

-State  820 

-State  821 

-State  822 

-State  823 

-State  824 

-State  825 


294 


--State  826 
,(-158, 67),(-156, 842) 

-State  827 

-State  828 

-State  829 
,(-69,846),(-3,8) 

-State  830 

-State  831 

-State  832 

-State  833 

-State  834 

-State  835 

-State  836 

-State  837 

-State  838 

-State  839 

-State  840 

-State  841 

-State  842 

-State  843 

-State  844 

—  State  845 

,(-115, 116), (-113, 99),(-110, 110),(-109, 109) 
,(-107, 104),(-106, 103),(-105, 100),(-104, 98) 
,(-103,97),(-90, 124),(-89, 122),(-88, 121) 
,(-87, 120),(-86, 119),(-71, 855),(-68, 117) 
,(-47, 543),(-46, 544),(-44, 112),(-7, 107) 

-State  846 
,(-70, 856) 

-State  847 


-State  848 
,(-116, 858),(-61,255) 
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—  State  849 
,(-116, 859) 

.(-61,255) 

--State  850 

-State  851 

-State  852 

-State  853 

-State  854 

-State  855 
,(-72, 860) 

-State  856 
.(-69.862) 

-State  857 

-State  858 

-State  859 

—  State  860 

-State  861 

-State  862 

-State  863 
.(-61.577) 

,(-60, 865) 

-State  864 

-State  865 

-State  866 

); 

—  The  off^t  vector 

GOTO_OFreET :  array  (0..  866)  of  Integer  := 

(0. 

3. 6. 7. 7. 23. 24. 25. 25. 25. 25, 

25. 25. 25. 25. 25. 25. 25. 25. 25. 25, 

25. 25, 27, 27, 27, 27, 29, 29, 30, 30, 

30, 31, 33, 34, 35, 35, 39, 39, 39, 39, 

40, 41, 41, 41, 41, 43, 44, 46, 48, 48, 

48, 48, 51, 51, 52, 53, 54, 84, 84, 84, 

121, 122, 122, 124, 124, 124, 126, 126, 128, 128, 
128, 128, 128, 130, 130, 130, 130, 130, 131, 132, 
132, 132, 133, 134, 134, 134, 134, 134, 134, 134, 
134, 134, 134, 134, 134, 137, 137, 138, 138, 154, 
155,  155, 155, 155, 156, 169, 182, 182, 182, 182, 
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182, 182, 182, 182, 182, 184, 184, 184, 184, 184, 

184. 184. 184. 214. 215. 215. 215. 215. 215. 215, 

215. 215. 215. 215. 215. 215. 216. 216. 216. 216, 

216. 216. 216. 216. 216. 216. 216. 216. 216. 216, 

216, 216, 216, 216, 216, 216, 216, 216, 216, 216, 

223, 223, 224, 226, 227, 229, 261, 262, 266, 266, 

299, 299, 299, 299, 300, 302, 303, 308, 310, 312, 

313, 314, 314, 314, 315, 316, 317, 317, 346, 374, 

395. 395. 416. 416. 437. 458. 479. 500. 519. 519, 

519. 519. 519. 519. 519. 519. 519. 519. 519. 519, 

519, 535, 535, 535, 535, 535, 535, 549, 562, 562, 

562, 562, 562, 563, 563, 564, 567, 568, 568, 568, 

569, 569, 572, 575, 579, 586, 586, 587, 587, 587, 

588, 588, 592, 592, 592, 593, 593, 593, 593, 594, 

594, 596, 597, 616, 617, 620, 621, 623, 623, 623, 

624, 624, 626, 627, 627, 627, 627, 627, 627, 627, 

627, 628, 628, 628, 630, 630, 630, 632, 632, 632, 

632, 632, 632, 632, 634, 636, 642, 642, 649, 649, 

649, 649, 649, 649, 649, 649, 670, 670, 691, 691, 

712, 712, 733, 733, 733, 733, 753, 753, 753, 753, 

753, 754, 754, 773, 793, 793, 793, 793, 793, 793, 

793,  793, 793, 793, 793, 793, 793, 793, 793, 793, 

794, 794, 795, 795, 803, 804, 805, 809, 810, 810, 

813. 815. 815. 834. 850. 850. 850. 850. 852. 853, 

853. 853. 853. 853. 853. 853. 853. 853. 853. 854, 

886, 886, 888, 889, 889, 920, 920, 922, 922, 924, 

924, 954, 954, 954, 954, 954, 956, 956, 958, 958, 

962, 963, 963, 964, 964, 965, 965, 965, 965, 965, 

965. 965. 965. 965. 965. 968. 969. 969. 969. 970, 

970. 970. 970. 970. 970. 971. 971. 971. 971. 971, 

971, 971, 971, 971, 999, 1019, 1019, 1019, 1019, 1049, 

1049, 1049, 1049, 1053, 1055, 1055, 1059, 1059, 1059, 1059, 
1059, 1059, 1061, 1063, 1082, 1101, 1101, 1108, 1129, 1129, 
1157, 1157, 1165, 1166, 1167, 1195, 1195, 1196, 1196, 1196, 
1215, 1215, 1215, 1215, 1215, 1215, 1215, 1215, 1215, 1217, 
1217, 1217, 1217, 1219, 1222, 1222, 1238, 1238, 1238, 1239, 

1247. 1248. 1248. 1248. 1248. 1248. 1248. 1248. 1248. 1248, 

1248. 1248. 1248. 1248. 1248. 1248. 1248. 1248. 1249. 1249, 
1251, 1280, 1281, 1300, 1307, 1309, 1309, 1309, 1338, 1366, 
1369, 1370, 1370, 1370, 1370, 1370, 1381, 1381, 1381, 1381, 
1381, 1382, 1385, 1388, 1391, 1391, 1391, 1391, 1392, 1394, 
1394, 1394, 1427, 1427, 1428, 1428, 1428, 1428, 1428, 1430, 
1430, 1430, 1430, 1430, 1430, 1430, 1452, 1452, 1452, 1452, 
1452, 1471, 1471, 1471, 1472, 1472, 1472, 1472, 1472, 1473, 
1475, 1475, 1475, 1475, 1475, 1475, 1475, 1475, 1475, 1475, 
1476, 1477, 1480, 1480, 1480, 1480, 1480, 1480, 1480, 1480, 
1480, 1480, 1480, 1480, 1480, 1480, 1481, 1483, 1483, 1483, 
1483, 1483, 1502, 1503, 1503, 1503, 1504, 1504, 1532, 1532, 
1532, 1532, 1533, 1533, 1533, 1533, 1533, 1534, 1534, 1534, 
1534, 1534, 1534, 1534, 1534, 1537, 1566, 1567, 1567,  1567, 
1570, 1570, 1580, 1580, 1609, 1609, 1609, 1609, 1609, 1609, 
1609, 1610, 1613, 1613, 1614, 1614, 1615, 1617, 1617, 1617, 
1617, 1617, 1617, 1617, 1621, 1621, 1622, 1622, 1624, 1624, 
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1625, 1626, 1626, 1626, 1626, 1645, 1645, 1645, 1652, 1652, 
1653, 1655, 1655, 1655, 1655, 1655, 1655, 1655, 1655, 1655, 
1655, 1655, 1655, 1658, 1658, 1658, 1658, 1658, 1677, 1677, 
1678, 1678, 1678, 1707, 1707, 1707, 1707, 1707, 1707, 1707, 
1709, 1711, 1711, 1711, 1711, 1711, 1711, 1711, 1713, 1715, 
1715, 1746, 1747, 1747, 1750, 1753, 1753, 1753, 1754, 1757, 
1757, 1757, 1758, 1758, 1758, 1758, 1759, 1759, 1759, 1759, 
1759, 1779, 1779, 1779, 1779, 1781, 1782, 1784, 1785, 1786, 
1786, 1807, 1807, 1809, 1809, 1810, 1811, 1812, 1813, 1813, 
1813, 1813, 1813, 1813, 1813, 1813, 1813, 1820, 1821, 1823, 
1823, 1824, 1824, 1825, 1825, 1826, 1826, 1828, 1828, 1828, 
1828, 1828, 1829, 1837, 1839, 1839, 1849, 1851, 1854, 1854, 
1854, 1854, 1862, 1862, 1863, 1886, 1886, 1886, 1886, 1886, 
1890, 1890, 1891, 1892, 1893, 1913, 1913, 1914, 1934, 1935, 
1935, 1935, 1956, 1956, 1956, 1958, 1958, 1958, 1959, 1962, 
1962, 1962, 1962, 1962, 1962, 1964, 1964, 1966, 1968, 1971, 
1971, 1971, 1971, 1971, 1973, 1973, 1974, 1975. 1975, 1975, 
2004, 2005, 2006, 2006, 2006, 2008, 2010, 2010, 2012, 2012, 

2012. 2012. 2012. 2012. 2012. 2012. 2014. 2014. 2014. 2016, 

2016. 2016. 2016. 2016. 2016. 2016. 2016. 2016. 2016. 2016, 
2016, 2016, 2016, 2016, 2016, 2036, 2037, 2037, 2039, 2041, 
2041, 2041, 2041, 2041, 2041, 2042, 2043, 2043, 2043, 2043, 
2043, 2043, 2043, 2045, 2045. 2045); 

subtype  Rule  is  Natural; 
subQ^  Nonterminal  is  Integer; 

Rule.Length  :  array  (Rule  range  0 ..  464)  of  Natural  :=  ( 2, 

4. 1.3. 1.1. 1.1.1, 

1.1. 1.1. 1.1. 1.1, 

2. 5. 6.5. 6. 6. 2. 1, 

1.1.5. 6. 1.1.1. 1, 

1.1. 1.5. 2.1. 1.1, 

1.1. 2. 2. 1.3. 4.1, 

1.1. 1.1. 1.2. 2.2, 

2. 1.1. 7. 4. 3. 4.1, 

2. 4. 4. 4. 4. 5. 1.4, 

4.9.5. 1.2. 3. 1.1, 

2. 3. 4. 1.3. 1.1.1, 

1.1. 1.1. 1.1. 1.1, 

1,1, 1,1, 1,1, 1,1, 

1.1. 1.1. 2. 3.1.1, 

1.1. 3. 1.1. 1.1. 4. 

1.4. 3. 2. 1.1. 1.1, 

1.2. 1.1. 1.2. 2. 2, 

1,1,1, 1.1. 1,1,1, 

1,1,1, 1,1, 1,1,1, 

1,1, 1,1, 1,1, 2, 3. 

4, 0,4, 2, 2, 2, 1.1, 

1,1, 1,1, 1,1, 1,2, 

1.1. 1.1. 1.1. 3. 2, 

4. 9. 1.7. 5. 8.2.2, 

2.2.4. 8. 4. 3. 3. 2, 
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3. 5. 1.1. 1.4. 5.1, 

2. 1.9. 2. 7. 9. 6. 7, 

4. 6, 6,5,4, 2, 4,11, 

4. 7. 3. 5. 1.3. 1.1, 

1.7. 1.1. 1.1. 1.1, 

1.8. 8. 4. 1.2. 2.1, 

1.1. 1.1. 1.1. 1.1, 

4. 4. 6. 6. 5. 4. 5.1, 

1,3, 2, 2, 2, 2, 6, 5, 

1.4. 3. 2. 2. 2. 1.1, 

7. 5. 7. 4. 1.1. 1.1, 

1.1. 1.1. 1.5. 3. 7, 

4, 6, 6, 2, 0,2, 0,3, 

1,3,0, 2,0, 3,0, 1, 

1, 3, 0, 3, 0, 1, 0, 3, 

0, 3, 0,3,0, 3, 0, 2, 

0, 3, 1,3, 1.3, 0,3, 

3, 3, 3. 3. 1.1, 3. 3, 

4. 4, 4, 4, 0, 2, 4. 0, 

1,1, 2, 3, 1,3, 0,2, 

3, 1.3, 0,2, 0,5,0, 

2, 3. 0,2, 0. 2, 0, 1, 

0,1, 0,1, 0,2, 0,3, 

1.2. 0.1, 0,2, 0,1, 

0,1, 0,3, 0,1, 1,0, 

1,0, 2. 0,3, 0,1,0, 

3, 0,1,0, 5, 1,3,0, 

3, 1,4, 0,4, 0,3,1, 

4,3,3,4, 1, 1,0,3, 

1,3, 1,0, 3, 1,3,0, 

3, 0,3, 0,2, 1,2, 0, 

2,2, 2, 0,1, 0,3,1, 

3,1,3, 1,3, 0, 3, 1); 

Get_LHS_Rule:  array  (Rule  range  0..  464)  of  Nonterminal  :=(-!, 
-3,-5,-5,-7,-7,-8,-8,-8, 

-8,-8,-8,“8,-8,-8,-8,-8, 

-8,-9.-9.-9,-9,-19,-20,-10, 

-10,-10,-25,-25,-28,-28.-28,-28, 

-28,-28,-28,-!  1  ,-21  ,-37.-40,-40, 

-40,-40,-36,-41  ,-45,-45,-30,-48, 

-50,-50,-3 1  ,-32,-32,-42,-5 1  ,-43, 

-53.-33,-33,-54,-23,-55,-57,-58, 

-58,-34,-60,-60,-60,-63,-65,-29, 

-66,-64,-69,-71  ,-71  ,-71  .-71  ,-71 , 

-35.-26,-26,-73,-73,-77,-77,-77, 

-80,-80,-80,-80.-80.-80.-80,-75, 

-75,-81,-81,-81,-46,-46.-46,-46, 

-46,-46,-68,-90,-87,-88,-91,-91, 

-91,-91,-89,-92,-92,-92,-92,-44, 

-93,-93,-93,-93,-6,-6,-6,-6, 

-6,-100,-100,-47.-104,-106,-106,-106. 

-107.-107,-107,-107,-107,-107,-111,-111, 

-1 11,-1 1 1,-1 11,-1 1 1,-1 12,-1 12,-1 12,-1 13, 
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-1 13,-1 14,-1 14,-1 14,-1 14,-1 10,-109,-109, 
-109,-1 19,-1 16,-1 17,-1 17,-1 17,-121  ,-121, 
-121,-121,-121,-121,-121,-121,-121,-121, 
-122,-122,-122,-122,-122,-122,-138,-123, 
-124,-132,-139,-133,-143,-134,-147,-147, 
-147,-147,-148,-135,-125,-126,-127,-12, 
-155,-155,-157,-157,-86,-158,-159,-161, 
-161,-161,-83,-13,-165,-84,-27,-27, 
-79,-18,-18,-18,-18,-14,-170,-85, 
-173,-173,-174,-136,-177,-128,-137,-137, 
-137,-178,-181,-184,-184,-184,-185,-186, 
-187,-179,-180,-129,-2,-194,-194,-196, 
-196,-196,-196,-196,-197,-197,-198,-195, 
-202,-82.-82,-82,-199,-16,-204,-205, 
-205.-130.-15.-207,-207,-208,-210,-210. 
-210,-210.-212,-212,-212,-212,-212,-212, 
-17,-17.-17,-216,-217,-220.-220.-221, 
-78.-78,-223.-223.-223,-225,-226,-227, 

-23 1  ,-232,-224.- 131,-61  .-6 1  ,-4,-4, 

-234,-234.-22,-22,-24.-24,-38,-38, 

-39,-39.-49,-49,-52,-52,-56.-56, 

-59,-59.-62.-62,-67.-67,-70,-70. 

-72.-72,-74,-74.-76,-76,-94,-94, 

-95,-95,-97,-97,-99,-99,-235,-235, 

-96,-96,-98,-98,-101,-101.-102,-236. 

-236,-103,-103,-103,-105,-105,-108,-108, 

-1 15,-118,-1 18,-120,-120,-140,-140,-141 , 

-141,-142,-237,-237,-144,-144,-146,-146, 

-145,-145,-149,-149,-150,-150,-151,-151, 

-238,-238,-152,-152,-153,-153,-154,-154, 

-156,-156,-160,-160,-162,-162,-163,-164, 

-164,-166.-166,-167,-167,-168,-168,-169, 

-169,-171,-171,-172,-172,-239,-239,-240, 

-240,-175,-175,-176,-176,-182,-182,-183, 

-183,-188.-189,-190,-191,-191,-192,-192, 

-193,-193,-200,-201  ,-201  ,-241  ,-241,-203, 

-203,-206,-206,-209,-209,-21 1,-21 1,-213, 

-213,-213,-215,-214,-214,-218,-218,-219, 

-219,-222,-228,-229,-229,-230,-230,-233); 

end  Ada.Goto; 
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..  ADA.A 


with  ada_lex; 
use  ada_lex; 
package  parser  is 

procedure  yyparse; 

erTor_string :  string(1..80); 
error_lengdi :  integer  ;=  0; 
echo  :  boolean  :=  false; 
number_of_eiTors ;  natural  :=  0; 

end  parser, 

with  ada.tokens,  ada_goto,  ada_shift_rBduce,  adajex,  textjo,  directjo 
use  ada_tokens,  ada_^oto,  ada_shift_reduce,  adajex,  textjo; 
package  body  parser  is 

procedure  yyerror  is 

&st,last :  integer  :=  0; 

begin 

number_of_errors  :=  number_of_errors  +  1; 
ada_lex.errorjine(1..10)  := "  «<  ***  "; 
adaJex.error_line(11..22)  :=  "Syntax  Error"; 
adajex.eiror_line(23..30):= "  ***  »>"; 
end  yyerror. 


procedure  YYParse  is 

--  Rename  User  Defined  Packages  to  Internal  Names, 
package  yy_goto_tables  renames 
Ada_Goto; 

package  yy_shift_ieduce_tables  renames 
Ada_SIuft_Reduce; 
package  yy_tokens  renames 
Ada_Tokens; 

use  yyjokens,  yy_goto_tables,  yy_shift_reduce_tables; 

procedure  yyerrok; 
procedure  yyclearin; 

package  yy  is 

--  the  size  of  the  value  and  state  stacks 
stack_size :  constant  Natural  ;=  300; 

“  subtype  rule  is  natural; 
subtype  parse_state  is  natural; 

-- subtype  nonterminal  is  integer; 
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~  encryption  constants 
default  :  constant  :=  -1; 
first_shift_entry :  constant  :=  0; 
accept.code  :  constant  ;= -1001; 

enror_code  ;  constant  ;=  -1000; 

-  stack  data  used  by  the  parser 

tos  :  natural  :=  0; 

value.stack  :  array(0,.stack_si2e)  of  yy_tokens.yystype; 

state_stack  :  arTay(0..stack_size)  of  parse_state; 

—  current  input  symbol  and  action  the  parser  is  on 

action  :  integer, 

rulejd  :  rule; 

input_symbol  ;  yy_tokens.token; 


-  error  recovery  flag 
error_flag :  natural  :=  0; 

~  indicates  3  -  (number  of  valid  shifts  after  an  error  occurs) 

look_ahead :  boolean  :=  true; 
index  :  integer, 

“  Is  Debugging  option  on  or  off 
DEBUG :  constant  boolean  :=  false; 

endyy; 


function  goto_state 
(state :  yy.parse_state; 
sym  ;  nonterminal)  return  yy.parse_state; 

function  parse.action 
(state :  yy.parse_state; 
t  :  yy_tokens.token)  return  integer, 

pragma  inline(goto_state,  parse_action); 


ftinction  goto_state(state :  yy.parse_state; 

sym  :  nonterminal)  return  yy.parse_state  is 
index :  integer, 
be^ 

index  :=  goto_offset(state); 

while  integer(goto_matrix(index).nontetm)/=  sym  loop 
index  :=  index  +  1; 
end  loop; 

return  integer(goto_matrix(index).newstate); 
end  goto.state; 


302 


function  parse_action(state :  yy.parse_state; 

t  :  yy_tokens.token)  return  integer  is 
index  :  integer, 
tok_pos  :  integer, 
default  :  constant  integer  :=  -1 ; 
begin 

tok_pos  :=  yy_tokens.token'pos(t); 
index  :=  sMft_reduce_offset(state); 

while  integer(shift_reduce_matrix(index).t)  /=  tok_pos  and  then 
integer(shift_reduce_matrix(index).t)  /=  default 
loop 

index  :=  index  +  1; 
end  loop; 

return  integer(shift_reduce_matrix(index).act); 
end  parse_action; 

“  error  recovery  stuff 

procedure  handle_erTor  is 
temp_action :  integer; 
begin 

if  yy.erTor_flag  =  3  then  -  no  shift  yet,  clobber  input, 
if  yy  .debug  then 

put_line("Ayacc.YYParse:  Error  Recovery  Clobbers  "  & 
yy_tokens.token'image(yy.input_symbol)); 

end  if; 

if  yy.input_symbol  =  yy_tokens.end_of_input  then  -  don't  discard, 
if  yy  .debug  then 

put_line("Ayacc.YYParse:  Can't  discard  END_OF_INPUT,  quiting..."); 
end  if; 

raise  syntax_error; 
end  if; 

yy.look_ahead  ;=  true;  -  get  next  token 
return;  -  and  try  again... 

end  if; 

if  yy.erTor_flag  =  0  then  -  brand  new  error 
yyerror; 
end  if; 


yy.erTor_flag  :=  3; 


-  find  state  on  stack  where  error  is  a  valid  shift  - 
if  yy  .debug  then 

put_line("Ayacc.YYParse:  Looking  for  state  with  error  as  valid  shift"); 
end  if; 

loop 

if  yy.debug  then 
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put_line("Ayacc.YYParse:  Examining  State  "  & 
3^.parse_state’image(yy.state_stack(yy.tos))); 
end  if; 

temp.action  :=  parse_action(yy.state_stack(yy.tos),  error); 

if  temp_action  >=  yy.first_shift_entry  then 
yy.tos  :=  yy.tos  +  1; 
yy.state_stack(yy.tos)  :=  temp_action; 
exit; 
end  if; 

I>ecrcment_Stack_Pointer : 
begin 

yy.tos  :=  yy.tos  - 1; 
exception 

when  Constraint_Error  => 
yy.tos  ;=  0; 

end  Decrement_Stack_Pointer; 

if  yy.tos  =  0  then 
if  yy  .debug  then 

put_line("Ayacc.YYParse:  Error  recovery  popped  entire  stack,  aborting...’ 
end  if; 

raise  syntax_eiTor, 
end  if; 
end  loop: 

if  yy  .debug  then 

put_line("Ayacc.YYParse:  Shifted  error  token  in  state  "  & 
yy.parse_state'image(yy.state_stack(yy.tos))); 
end  if; 

end  handIe_etror, 

-  print  debugging  information  for  a  shift  operation 

procedure  shift_debug(state_id;  yy.parse_siate;  lexeme:  yy_tokens.token)  is 
begin 

put_line("Ayacc.YYParse:  Shift  "&  yy.paTse_staie’image(state_id)&"  on  input 
symbol  "& 

yy_tokens.token'image(lexeme) ); 
end; 

-  print  debugging  information  for  a  reduce  operation 
procedure  reduce_debug(rule_id;  rule;  state_id;  yy.parse_state)  is 
begin 

put_line(”Ayacc.YYParse:  Reduce  by  rule  "&rule’image(rule_id)«S:"  goto  state  "& 
yy.parse_state'image(statejd)); 
end; 

"  make  the  parser  believe  that  3  valid  shifts  have  occured. 

-  used  for  error  recovery, 
procedure  yyerrok  is 
begin 
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yy.error_flag  :=  0; 
end  yyerrok; 

-  called  to  clear  input  symbol  that  caused  an  error, 
procedure  yyclearin  is 

begin 

--  yy.input_symbol  :=  yylex; 
yy.look_ahead  :=  true; 
end  yyclearin; 

procedure  WRITE_HW  is 

package  HW_INOUT  is  new  DIRECTJO(TOKEN_NODE); 
use  HV.'_INOUT; 

HW  FILE  :  HW_INOUT.FILE_TYPE; 

HW  NODE  ;  TOKEN.NODE; 

REC.NO  :  HW_INOUT.COUNT; 

begin 

OPEN(HW_FILE,OUT_FILE,"hw.dat"); 

REC_NO  :=  1; 
current_ptr  :=  hw_ptT.next; 
while  current_ptr /=  null  loop 
HW_NODE  ;=  current_ptr.all; 
WRITE(HW_FILE,HW_NODE,REC_NO); 
current.ptr  :=  current_ptr.next; 

REC_n6  :=REC_N0+1; 
end  loop; 

CLOSE(HW_FILE); 
end  WRITE_HW; 

begin 

—  initialize  by  pushing  state  0  and  getting  the  first  input  symbol 
yy.state_stack(yy.tos)  :=  0; 

--  yy.state_stack(yy.tos)  :=  360;  -  for  a  case  statement 
loop 

yy.index  ;=  shift_reduce_offset(yy.state_stack(yy.tos)), 
if  integei^shift_reduce_niatrix(yy.index).t)  =  yy  .default  then 
yy .action  :=  integer(shift_reduce_matrix(yy.index).act); 
else 

if  yy.look_ahead  then 
^.look_ahead  :=  false; 
yy.input_symbol  ;=  yylex; 
current_ptr.token_name  :=  yy.input_symbol; 
end  if; 
yy  .action  := 

parse_action(yy.state_stack(yy.tos),  yy.input_symbol); 
end  if; 

if  yy.action  >=  yy.first_shift_entry  then  -  SHIFT 
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if  yy  .debug  then 

s4iift_debug(yy  .action,  yy.input_symbol); 
end  if; 

-  Enter  new  state 
yy.tos  :=  yy.tos  +  1; 
yy.state_stack(yy.tos)  :=  yy.action; 
yy.value_stack()7.tos)  :=  yylval; 

if  yy.eiTor_flag  >  0  then  -  indicate  a  valid  shift 
yy.error_flag  :=  yy.eiror^flag  - 1; 
end  if; 

-  Advance  lookahead 
yy.look_ahead  :=  true; 

elsif  yy.action  =  yy.error_code  then  -  ERROR 
if  yy  .debug  then 
put(''error_code  = "); 
put_line(integer'image(yy.error_code)); 
end  if; 

handle_error; 

elsif  yy.action  =  yy.accept^code  then 
if  yy  .debug  then 

putJineC'Ayacc.YYParse:  Accepting  Grammar..."); 
end  if; 
exit; 

else  -  Reduce  Action 

-  Convert  action  into  a  rule 
yy.rule_id  :=  -1  ♦  yy.action; 

-  Execute  User  Action 

-  user_action(yy.ruIe_id); 
put(integer'image(yy.rulejd)); 

case  yy.rule_id  is 


when  21  => 

-#line  205 
errorjength  :=  18; 

error_string(l..etrorJength)  :=  "object  declaration"; 
assign_association(yy.tuIe_id); 

when  22  => 

-#line  210 
errorjength  :=  18; 

error_string(l.. errorjength)  :=  "number  declaration"; 
assign_association(yy.ruleJd); 
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when  26  => 

-#line  221 
ertorjength  :=  16; 

error_string(l..eiTor_length)  :=  "type  declaration"; 
assign_association(yy.rule_id); 

when  43  => 

~#line  258 

errorjength  :=  23;  .  „ 

error_string(l..eiror_length)  :=  "derived  type  declaration  ; 
assign_association(yy.rule_id); 

when  47  => 

~#line  274 

errorjength  ;=  27;  .  -  •  •  .. 

error_string(l..erTorJength)  :=  "enumeration  type  dennmtion  ; 
assign_association(yy,rule_id); 

when  51  => 

~#line  284 
errorjength  :=  23; 

error_string(l.. errorjength)  :=  "integer  type  definition"; 
assign_association(yy.ruleJd); 

when  53  =>  , 

-#line  289 

errorjength  :=  20;  . 

error_string(l.. errorjength)  ;=  "real  type  definition '; 
assign_association(yy.ruleJd); 

when  74  => 

— #line  378 
errorjength  :=  12; 

error_string(l,.errorJength)  :=  "variant  part"; 
assign_association(yy.ruleJd); 

when  75  ..  80  => 

-^line  391 
errorjength  :=  6; 

error_string(l.. errorjength)  ;=  "choice"; 
assign_association(yy.ruleJd); 

when  124  => 

~#line  483 
errorjength  :=  21; 

error_string(l.. errorjength)  ;=  "component  association"; 
assign_association(yy.ruleJd); 

when  162  => 

-#line  554 
null; 

when  185  => 
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--#line  587 
eiTor_length  :=  20; 

error_string(1..20)  ;=  "assignment  statement"; 
assign_association(yy.mle_i(i); 

when  186  => 

“#line  596 
errorjengtii  :=  12; 

eiTor_string(l..eiTor_length)  :=  "if  statement"; 
assign_association(yy.niIe_id); 

when  187  => 

--#line  599 
errorjength  ;=  9; 

eiTor_siiing(l..error_length)  :=  "condition"; 
assign_association(yy.tule_id); 

when  188  => 

-#line  607 
errorjength  :=  14; 

error_string(1..14)  :=  "case  statement"; 
assign_association(yy.ruleJd); 

when  189  => 

-#Une  612  , 

errorjength  :=  11; 
error_string(l..ll)  :=  "alternative"; 
assign_association(yy.ruleJd); 

when  190  => 

-#line  621 
errorjength  :=  14; 

error_string(l.. errorjength)  ;=  "loop  statement"; 
assign_association(yy.ruleJd); 

when  194  => 

-#line  630 
errorjength  :=  16; 

error_string(l.. errorjength)  ;=  "iteration  scheme"; 
assign_association(yy.ruleJd); 

when  195  => 

-#line  635 
errorjength  :=  28; 

error_string(l.. errorjength)  :=  "loop  parameter  specification"; 
assign_association(yy.ruleJd); 

when  196  => 

~#line  645 
errorjength  :=  15; 

error_string(l.. errorjength)  :=  "block  statement"; 
assign_association(yy.ruleJd); 
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when  200  => 

~#line  664 
errorjength  :=  22; 

error_string(l..error_length)  :=  "subprogram  declaration”; 
assign_association(yy.rule_id); 

when  206  => 

-#line  680 
errorjengdi  :=  11; 

error_string(l..error_length)  :=  "formal  pan"; 
assign_association(yy,rule_id); 

when  207  => 

-#line  684 
errorjength  ;=  23; 

error_siring(l..error_length)  :=  "parameter  specification"; 
assign_association(yy.ruleJd); 

when  211  => 

-#line  699 
errorjength  ;=  15; 

error_string(l..error_length)  ;=  "subprogram  body"; 
assign_association(yy.rule_id); 

when  213  => 

-#line  709 
errorjength  :=  21; 

eiTor_string(l.. errorjength)  :=  "package  specification"; 
assign_association(yy.ruIeJd); 

when  214  => 

-#line  716 
errorjength  :=  12; 

error_string(l., errorjength)  :=  "package  body"; 
assign_association(yy.ruleJd); 

when  216  => 

~#line  724 
errorjength  :=  24; 

error_string(l.. errorjength)  :=  "private  type  declaration"; 
assign_association(yy,nileJd); 

when  217  => 

-#line  731 
errorjength  :=  10; 

error_string(l.. errorjength)  :=  "use  clause"; 
assign_association(yy.iuleJd); 

when  223  => 

-#line  751 
errorjength  :=  16; 

error_string(l.. errorjength)  :=  "task  specification"; 
assign_association(yy.ruleJd); 
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when  224  => 

-#line  759 
eiTorJength  :=  9; 

error_stiing(l..eiTorJength)  :=  "task  body"; 
assign_association(yy.rule_id); 

when  228  => 

-#line  776 
error Jwigth  :=  16; 

erTor_string(l..error_length)  :=  "accept  statement"; 
assign_association(yy.rule_id); 

when  230  => 

-#line  783 
error Jength  :=  15; 

error_string(l.,error_length)  :=  "delay  statement"; 
assign_association(yy.rule_id); 

when  233  => 

-#line  788 
errorjengdi  :=  16; 

etror_string(l..erTor_Iength)  :=  "select  statement"; 
assign_association(yy.rule_id); 

when  235  => 

-^line  801 
eirorjength  :=  18; 

error_string(l..eiTorJength)  ;=  "select  alternative"; 
assign_association(yy.rule_id); 

when  238  => 

-#line  805 
errorjength  :=  26; 

eiTor_string(l..errorJength)  :=  "selective  wait  alternative" 
assign_association(yy.tule_id); 

when  243  => 

-#line  837 
errorjength  :=  16; 

error_string(l.. error  Jength)  :=  "timed  entry  call"; 
assign_association(yy.ruIeJd); 

when  247  => 

~#line  851 
errorjength  :=  16; 

error_string(l  ..errorjength)  :=  "compilation  unit"; 
assign_association(yy.ruleJd); 

when  257  => 

-#line  873 
errorjength  :=  11; 

error_string(l.. error  Jength)  ;=  ">vith  clause"; 
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assign_association(yy.rule_id); 


when  261  => 

"#line  885 
errorjength  :=  7; 

error_string(L,eiTor_length)  :=  "subunit"; 
assign_association(yy.rule_id); 

when  262  => 

-#line  891 
errorjength  :=  21; 

eiTor_string(l.. errorjength)  :=  "exception  declaration"; 
assign_association(yyjuleJd); 

when  263  => 

-#line  897 
errorjength  :=  17; 

error_string(l.. errorjength)  :=  "exception  handler"; 
assign_association(yy.ruleJd); 

when  265  => 

-#line  901 
errorjengdi  ;=  16; 

error_string(l.. errorjength)  ;=  "exception  choice"; 
assign_association(yy.ruleJd); 

when  266  => 

~#line  905 
errorjength  :=  15; 

error_string(l..errorJength)  :=  "raise  statement"; 
assign_association(yy.ruleJd); 

when  269  => 

~#line  914 
errorjength  :=  21; 

eiTor_string(l..errorJength)  :=  "generic  specification”; 
assign_association(yy.rule_id); 

when  270  => 

~#line  918 
error JengA  ;=  19; 

error_string(l.. errorjength)  :=  "generic  formal  part"; 
assign_association(yy,ruleJd); 

when  274  => 

~#line  926 
errorjengdi  :=  29; 

error_string(l.. errorjength)  :=  "generic  parameter  declaration” 
assign_associarion(yy.ruleJd); 

when  280  => 

~#line  932 
errorjength  :=  23; 
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error_string(l..error_length)  :=  "generic  type  definition"; 
assign_association(yy.rule_id); 

when  283  => 

--#line  943 
enorjength  ;=  18; 

eiror_string(l..error_length)  :=  "generic  instantiation"; 
assign_association(yyjiile_id); 

when  284  => 

~#line  948 
errorjength  :=  19; 

error_string(l..error_length)  :=  "generic  actual  pan"; 
assign_association(yy.tule_id); 

when  330  => 

~#line  1072 
error_length  :=  9; 

enror_string(l..enorJength)  :=  "or  choice"; 
assign_association(yy,rule_id); 

when  437  => 

~#line  1327 
errorjength  :=  10; 

error_string(l.. errorjength)  ;=:  "use  clause"; 
assign_association(yy.ruleJd); 

when  others  =>  null; 
end  case; 

"  Pop  RHS  states  and  goto  next  state 
yy.tos  :=  yy.tos  -  rule  Jength(yy.rule  Jd)  +  1 ; 

if  yy.tos  =  0  then 
exit; 
end  ifi 

yy,state_stack(yy,tos)  :=goto_state(yy.state_stack(yy.tos-l) , 
get_lhs_rule(yy.rulejd)); 

yy.value_stack(yy.tos)  ;=  yyval; 

if  yy  .debug  then 
r^uce_debug(yy.rulejd, 
goto_state(yy.state_stack(yy.tos  - 1), 
get_lhs_nile(yy.iulejd))); 

end  if; 

end  if; 
end  loop; 

add_node(current_ptr); 
cunient_ptr.extemal_variable  :=  1000; 
curFent_ptr.association  :=  current_ptr.previous.association; 
new.hne;  linenum; 
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put(buffer_line); 
buffer_line  :=  empty_buffer; 
bufferjength  :=  1; 
if  eiTor_line  /=  empty_line  then 
new_line; 
put(enor_line); 
error_line  :=  empty_line; 
end  if; 

WRTTE.HW; 

new_Iine; 

exception 

when  Syntax_EiTor  => 
yyerror; 

end  yyparse; 

end  parser. 


-  DUGNOSE.PKGA 

with  textjo,  adajex,  parser,  ada_tokens; 
use  textjo,  ada_lex,  parser,  adajokens; 

package  diagnosis  is 

type  list_array  is  array(integer  range  o)  of  token_node; 

student.count, 
expeit.count :  integer  :=  0; 
list.count :  integer  :=  0; 

Iist_ptr :  token_ptr; 

hw_array, 

expeii_array, 

student.array :  list_array(1..50); 
student_ptr :  token_ptr, 
expeit_ptr :  token_ptr, 

procedure  ieverse_list(list_ptr:in  out  token_ptr); 
procedure  load_array(list_ptr;in  token_ptr, 

list_count:in  out  integer,  hw_airay:in  out  list_airay); 
procedure  compare(expert_array,student_array;in  list_array; 

expert_count,student_count:in  integer); 
procedure  diagnose(student_ptr,  expert_ptr:in  out  token_ptr); 

end  diagnosis; 

package  body  diagnosis  is 


procedure  reverse_Iist(Iist_ptr:in  out  token_ptr)  is 
begin 

current_ptr  :=  list_ptr, 
while  cuiTent_ptr.next  /=  null  loop 
if  current_ptr.extemal_variable  /=  0  then  --  association 
current_ptr.next.token_nanie 
;=s  cuiTent_ptr.token_name; 
end  if; 

current_ptr  :=  current_ptr.next; 
end  loop; 

list  j)tr  :=  current_ptr,  -  now  at  the  end 
end  reverse_list; 

procedure  load_aiTay(list_ptr:in  token_ptr; 

list_count:in  out  integer,  hw_array;in  out  list_array)  is 

current_ptr, 

array j)tr :  token_ptr  :=  list_ptr, 
begin 

list_count  ;=  0; 
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current_ptr  :=  list_ptr; 
anray_ptr  ;=  list_ptr, 

while  current_ptr.previous  /=  null  loop  —  not  START 
if  cunent_ptr.extemal_variable  /=  0  then  --  ass  node 
list_couni  :=  list_coiint  +  1; 
hw_array(list_count).next  ;=  new  token_node; 
array_ptr  :=  hw_array(list_count).next; 
array_ptr.all  :=  cunent_ptr.all; 
array_ptr.next  :=  null; 
anay_ptr.pTevious  :=  null; 
else  ~  token  node 

array_ptr.next  ;=  new  token_node; 
anay_ptr.next.all  :=  cunent_ptr.all; 
array_ptr.next.next  :=  null; 
array_ptr.next.previous  :=  array_ptr, 
array_ptr  :=  array_ptr.next; 
end  if; 

current_ptr  ;=  current_ptr.previous; 
end  loop; 
end  load_array; 

procedure  compare(expert_anay,student_array:in  list_array; 
expert_count,  student_count:  in  integer)  is 

subtype  STATUS_TYPE  is  INTEGER  range  0..2; 

STATUS, 

PREVIOUS_STATUS  ;  STATUS.TYPE  ;=  0; 
cunent_student_ptr :  token_ptr; 
cuiTent_expert_ptr ;  token_ptr; 
found :  boolean  :=  false; 

CONSTRUCT,  PREVIOUS_CONSTRUCT :  integer; 
eiTor_ptr, 

previous_enor_ptr  ;  token_ptr  :=  null; 

INTT :  BOOLEAN  :=  TRUE; 

procedure  PRINT_OUT(PREVIOUS_ERROR_PTR;in  TOKEN_PTR)  is 

begin_line  :  boolean  :=  false; 

counter ;  integer  :=  0; 

tab :  integer  :=  7; 

select_block ;  boolean  :=  false; 

subtype_line :  boolean  :=  false; 

when_line ;  boolean  :=  false; 

end_line :  boolean  :=  false; 

proc_line :  boolean  :=  false; 

previous_token  ;  token  :=  END_OF_INPUT; 

PRINT_PTR :  TOKEN_PTR  :=  PREVIOUS_ERROR_PTR; 

procedure  SPACES(TAB:in  INTEGER)  is 

begin 

for  I  in  I ..  TAB  loop 
PUT("  "); 
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«ul  loop; 
end  SPACES; 

begin 

CURRENT_PTR  :=  PREVIOUS_ERROR_PTR; 
while  CURRENT  PTR.NEXT  /=  null  loop 
CURRENT_PTR  :=  CURRENT_PTR.NEXT; 
end  loop; 

if  PREVIOUS  STATUS  =  1  then 
new_line;  PUT(”***  MISSING  "); 
else 

new_line;  PUT("***  UNNECESSARY  "); 

Old  if; 

PUT(PREVIOUS  ERROR_PTR.PREVIOUS.VALUE(l.. 

PREVIOUS_ERROR_PTR.PREVIOUS.LENGTH)); 

PUT("  ♦**");  NEW_LINE;  SET_COL(8); 

PR1NT_PTR  :=  CURRENT_PTR; 
while  PRINT_PTR  /=  null  loop 
if  PRlNT_PTTI.extemal_variable  =  0  then  -  a  token  node 
if  77  <  (counter  +  PRINT_PTR.length)  then 
be^_line  :=  true; 
end  if; 

if  not  I^OT  then 

case  PRINT_PTR.token_name  is 
when ')'  I 1 I 1 =>  -  no  space  before 
null; 

when '('  =>  _ 

if  previousjtoken  /=  IDENTIFIER  and  previousjtoken  /= 
'('then 
put(" "); 
end  if; 

when  oAers  => 

if  previous_token  = or  previousjtoken  = or 
previousjtoken  = '('  then 
null; 

elsif  counter  /=  0  then  -  not  at  beginning  of  a  line 
put("  "); 

counter  :=  counter  +  1; 
end  if; 

end  case;  _ 

case  PRn^_PTR.token_naine  is  ~  for  tab  before 
when  ELSE_TOKEN  I  ELSIF.TOKEN  I  PRIVATE_TOKEN  I 
EXCEPTION_TOKEN  => 
begin_line  :=  true; 
tab  :=  tab  -  3; 
when  END.TOKEN  => 
begin.line  :=  true; 
tab  ;=  tab  -  3; 
whenOR_TOKEN=> 
if  select.block  then 
begin_line  :=  true; 
tab  :=  tab  -  3; 
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end  if; 

when  PROCEDURE.TOKEN  i  PACKAGE_TOKEN  I  FXJNCTION.TOKEN  => 
tf  not  proc.line  then 
new_line; 
end  if; 

begin.line  :=  troe; 
pnKjine  :=  true; 
when  WTTH.TOKEN  => 
new_line(2); 

when  BEGIN_TOKEN  => 
if  pievious_token  /=  ISJTOKEN  then 
new_line; 
end  if; 

tab  :=  tab  -  3  ; 
begin_line  :=  true; 
when  SELECT_TOKEN  => 
if  select_block  then 
be^_line  :=  true; 
end  if; 

when  WHEN.TOKEN  => 
tab  :=  tab  -  3;  when_line  ;=  true; 
when  others  =>  null; 
end  case; 
end  if; 

if  begin_line  then 

if  (PRINT_PTR.token_name  = ')'  or 
PRINT_PTR.token_name  = '(')  and  not  whenjine  then 
begin_iine  :=  true; 
else 

new_line; 
spaces(tab); 
begin_line  :=  false; 
counter  :=  tab; 
end  if; 
end  if; 

put(PRINT_PTR.value(l  ..PRINT_PTR.length)); 

IN1T:=  FALSE; 

counter  :=  counter  +  PRINT_PTR.length; 
case  PRlNT_PTR.token_name  is  -  tab  after 
when  BEGIN_TOKEN  I  RECORD_TOKEN  1  THEN.TOKEN  I  ELSE_TOKEN  I 
PRIVATE_TOKEN  1 EXCEPTIONJTOKEN  => 
tab  :=  tab  +  3; 
begin.line  :=  true; 
when  LOOP.TOKEN  => 

if  previous_token  /=  END_TOKEN  then  -  loop  statement 
begin_line  :=  true; 
tab  :=  tab  +  3; 
end  if; 
when '('  => 
tab  :=  tab  +  3; 
when’)’=> 
tab  :=  tab  -  3; 
when  ARROW  => 


if  when_line  then 
beginjine  :=  true; 
tab  tab +  3;  -  case  alternatives 
end  if; 

whenOR_TOKEN=> 
if  select.block  then 
tab  ;=  tab  +  3; 
beginjine  :=  true; 
endu; 

when  SELECT_TOKEN  => 
if  selea_block  then 
select_block  :=  false; 
else 

select J}lock  :=  true; 
end  if; 

when  CASE_TOKEN  => 
if  previousjoken  =  END_TOKEN  then 
tab  :=  tab  -  3;  -  end  case 
else 

tab  :=  tab  +  3;  -  case  statement 

end  if;  _ 

when  IDENTIFIER  => 
if  previousjoken  =  END_TOKEN  then 
proc_line  :=  false; 
end  if; 
when s=> 
subt^_line  :=  false; 
begin_line  :=strue; 
whenIS_TOKEN=> 
case  PRINT_PTR.previous.token  name  is 
when  NEW.TOKEN  I  ARRAY_TOKEN  I  ACCESS_TOKEN  I 
DIGITS.TOKEN  1  DELTA.TOKEN  1  SEPARATE.TOKEN 
null; 

when  odiers  => 
if  not  subtype_line  then 
tab  ;=  tab  +  3; 
begin_line  :=  true; 
if  proc_line  then 
new_line; 
proc_Iine  '.s  false; 
end  if; 
end  if; 

when  SUPfrYPEjrOKEN  => 
subtype_line  :=  true; 
when  WHEN_TOKEN  => 
when.line  :=  true; 
when  others  =>  null; 

end  case; 

previousjoken  :=  PRINT_PTR.token_name; 
end  if; 

PRINT_PTR  ;=  PRINT_PTR.previous; 
end  loop; 
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end  PRINT.OUT; 


procedure  ERROR(construct:in  integer,error_ptr;in  TOKEN_PTR; 
STATUSrin  STATUS_TYPE)  is 

CURRENT_PTR, 

FIRST_LIST, 

LAST_LIST. 

FIRST_PREVIOUS_LIST. 

LAST_PREVIOUS_LIST  :  TOKEN.PTR; 

begin 

FIRST.UST  :=  ERROR_PTR.NEXT; 

CURRENT.PTR  :=  FIRST_LIST; 
while  CURRENT.PTR  /=  nuU  loop 
CURRENT.PTR  :=  CURRENT_PTR.NEXT; 
end  loop; 

LAST.UST  :=  CURRENT.PTR; 
if  STATUS  =  PREVIOUS_STATUS  then 
CURRENT_PTR  :=  PREVIOUS_ERROR_PTR; 
whUe  CURRENT_PTR,NEXT  /=  null  loop 
CURRENT_PTR  :=  CURRENT_PTR.NEXT; 
end  loop: 

LAST_PREVIOUS_LIST  :=  CURRFNT.PTR; 
if  LAST_PREVIOUS_LIST.association  = 
FIRST_LIST.association  + 1  then  -  consecutive 
LAST_PREVIOUS_LIST.NEXT  :=  FIRST.LIST; 
FIRST_LIST.PREVIOUS  :=:LAST  PREVIOUS.LIST; 
CURRENT.PTR  :=  PREVIOUS_ERROR_PTR; 
else 

PREVIOUS^CONSTRUCT  :=  CONSTRUCT; 
end  if; 

elsif  PREVIOUS.STATUS  =  0  then  -  firet  error 
PREVIOUS_ERROR_PTR  :=  ERROR_PTR.NEXT; 
PREVIOUS.CONSTRUCT  :=  CONSTRUCT; 
else 

PREVIOUS_ERROR_PTR  ;=  FIRST.LIST; 
PREVIOUS_CONSTRUCT  :=  CONSTRUCT; 
PRINT_OUT(PREVIOUS_ERROR_PTR); 
PREV10US_ERR0R_FrR  :=  null;  —  status  change 
PREVIOUS.CONSTRUCT  :=  0; 
end  if; 

PREVIOUS.STATUS  ;=  STATUS; 

end  ERROR; 

begin 

for  i  in  1  „  expert_count  loop 
for  j  in  1 ..  student_count  loop 
current_expert_ptr  :=  expert_array(i).next; 
current_student_ptr  :=  student_array(j).ncxt; 
if  current_expert_ptr.extemal_variable  >  0  and 
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(current_expeit_ptr.extemal_variable  = 
current_student_ptr.extemal_variable)  then  --  same  construct 
cunent_student_ptr  ;=  current_stu(lent_ptr.next; 
cunent_expeit_ptr  :=  current_expert_ptr.next; 
while  current_expert_ptr  /=  null  and 
cunent_student_ptr  /=  null  loop 
if  current_student_ptr.  value  = 
cunent_expeit_ptr. value  then 
found  :=  true; 
else 

found  false; 
exit; 
end  if; 

current_student_ptr  :=  current_student_ptr.next; 
current_expert_ptr  :=  cunent_expert_ptr.next; 
end  loop; 
if  found  then 
exit; 
end  if; 
end  if; 
end  loop; 
if  not  found  then 

construct  :=  expeit_array(i).next.extemal_variable; 

STATUS  :=2; 

ERROR(construct,expert_array(i).next,STATUS); 

else 

found  :=  false; 
end  if; 
end  loop; 

for  i  in  1 ..  student.count  loop 
for  j  in  1 ..  expert_count  loop 
current_ex^it_ptr  :=  expert_aiTay(j).next; 
curTent_student_ptr  :=  student_anay(i).next; 
if  cunent_student_ptr.extemal_variabie  >  0  and 
(cunent_expert_ptr.extemal_variable  = 
curTent_student_ptr.extemal_variable)  then  --  same  construct 
current_student_ptr  ;=  current_student_ptr.next; 
cuiient_expert_ptr  :=  current_expert_ptr.next; 
while  current_expert_ptr  /=  null  and 
current_student_j)tr /=  null  loop 
if  cunent_student_ptr.  value  = 
current_expert_ptr.value  then 
found  :=  true; 
else 

found  :=  false; 
exit; 
end  if; 

cunent_student_ptr  :=  current_student_ptr.next; 
current_expert_ptr  :=  current_expert_ptr.next; 
end  loop; 
if  found  then 
exit; 
end  if; 
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end  if; 
end  loop; 
if  not  found  then 

consmict  ;=  student_arTay(i).next.extemal_variable; 
STATUS  :=2; 

ERROR(construct,student_array(i).next,STATUS); 

else 

found  :=  false; 
end  if; 
end  loop; 

if  PREVIOUS_STATUS  /=  0  then  -  print  out  last  error 
PRINT_OUT(PREVIOUS_ERROR_PTR); 
else 

PUTC’NO  ERRORS"); 
end  if; 

end  compare; 

procedure  diagnose(student_ptr,  expert_ptr:in  out  token_ptr)  is 
begin 

reverse_list(student_ptr); 

load_array(student_ptr,student_count,student_array); 

teverse_list(expert_ptr); 

load_array(expert_ptr,expert_count,expert_array); 
compare(expeit_array,student_array,expert_count, 
student_count); 
end  diagnose; 

end  diagnosis; 
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-  EDITOR.A 
package  EDITOR_PKG  is 

type  LINE  ARRAY  is  arTay(1..49)  of  STRING(1..78); 

EMPTY  STRING  :  constant  STRING(1..78)  :=  (others  => '  ’); 
LINES  ;LINE_ARRAY:=  (others  =>EMPTY_STRING); 

CHECK  ;  BOOLEAN  :=  FALSE; 

LAST.UNE  :  INTEGER  :=  0; 

procedure  EDITOR; 

end  EDITOR.PKG; 

withTEXTJO; 

useTEXTJO; 

package  body  EDrrOR_PKG  is 

package  INTEGER_INOUT  is  new  INTEGER_IO(INTEGER); 
use  INTEGER_INOUT; 

procedure  ERROR  is 
begin 

PUT.UNECTHIS  IS  AN  ERROR’’); 
end  ERROR; 

procedure  ADD(coinmand:in  STRING;LINES:in  out  LINE_ARRAY)  is 

DATA.LINE  :  STRING(1..78)  ;=  EMPTY.STRING; 
START_LINE,STOP_LINE :  INTEGER; 

CHOICES, CHOICE4 :  CHARACTER; 

END_OF_INPUT :  BOOLEAN  :=  FALSE; 

DATA_LENGTH ;  INTEGER; 

begin 

&OICE3  :=  COMMANDO); 
case  CHOICES  is 

when  'O' ..  ’9'  =>  -  >=  1  digit,  choices 
start.line  :=  CHARACTER’POS(CHOICES)-48; 

CHOICE4  :=  COMMAND(4); 
case  CHOICE4  is 
when  '0'..*9'  =>  -  2  digits,  choice4 
start.Iine  :=  ((CHARACTER’POS(CHOICES)-48)  ♦  10)  + 
(CHARACTER'POS(CHOICE4)-48); 
while  not  END_OF_INPUT  loop 
INTEGER_INOUT.PUT(stan_line,width  =>  2); 

PUT(" "); 

get_line(DATA_LINE,DATA_LENGTH); 
tf  DATA_LINE(1)  =  ’/  then 
END_0F_INPUT  :=  TRUE; 
exit; 
end  if; 

for  I  in  reverse  startjine  ..  48  loop 


S22 


■ 


LINES(I+1)  :=LINES(I); 
end  loop; 

LINES(start_line)  ;=  DATA_LINE; 
last.line  ;=  last_line  +  1; 
start_line  :=  start_line  +  1; 

DATA_LINE  :=  EMPTY.Sl  RING; 
end  loop; 

when’'=>  ~chc!cs4 
while  not  END_OF_INPUT  loop 
INTEGER_INOUT.PUT(stait_line,width  =>  2); 

PUT(’’ "); 

get_line(DATA_LINE,DATA_LENGTH); 
if  DATA_UNE(1)  =  then 
END_OF_INPUT  :=  TRUE; 
exit; 
end  if; 

for  I  in  reverse  startjine  ..  48  loop 
LINES(I+1):=LINES(I); 
end  loop; 

LINES(stait_lineXl  ..DATA_LENGTH) 

:=  DATA_LINE(1..DATA_LENGTH); 
LINES(start_lineXDATA_LENGTH  + 1) 

:=ASCn.CR; 
last_line  :=  last_line  + 1; 
start_line  :=  stait_line  +  1; 

DATA_LINE  :=  EMPTY.STRING; 
end  loop; 

when  others  =>  error,  -  choice  4 
end  case; 

when  others  =>  error,  --  choice  3 
end  case; 
end  ADD; 

procedure  DELETE(comniand;in  STRING;LINES:in  out  LINE_ARRAY)  is 

START_LINE,STOP_LINE :  INTEGER; 

COUNTER ;  INTEGER; 

CHOICE3,CHOICE4,CHOICE5,CHOICE6,CHOICE7 :  CHARACTER; 
begin 

&OICE3  :=COMMAND(3); 
case  CHOICE3  is 
when  *a'  I  'A'  => 
for  I  in  l..last_line  loop 
UNESd)  :=  EMPTY.STRING; 
end  loop; 
last.line  :=  0; 

when  'O' ..  '9'  =>  -  >=  1  digit,  choice3 
start.line  :=  CHARACTER'POS(CHOICE3)-48; 

CHOICE4  :=  COMMAND(4); 
case  CHOICE4  is 
when  '0'..'9'  =>  --  2  digits,  choice4 
start.line  :=  ((CHARACTER'POS(CHOICE3)-48)  *  10)  + 
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(CHARACTER’POS(CHOICE4)-48); 

CHOICES  :=  COMMANEKS); 
case  CHOICES  is 

when  !'/'=>  —  delimeter  for  2  digit  range,  choices 
CHOICE6  :=  COMMAND(6); 
caseCHOICE6is 

when  '0'..'9'  =>  —  >=  1  digit  stop,  choice6 
CHOICE?  :=COMMAND(7); 
case  CHOICE?  is 

when  'O' ..  '9'  =>  --  2  digit  stop,dioice? 
stop_line  :=  ((CHARACTER’POS(CHOICE6)-48) 

*  10)  +  (CHARACTER'POS(CHOICE?)-48); 
counter  :=  start_line; 
for  I  in  stop_line  + 1 ..  last_line  loop 
LINES(counter)  :=  LINES(I); 
counter  ;=  counter  + 1; 
end  loop; 

for  I  in  1 ..  ((stop_line  -  stait_line) 

+  1) loop 

LINES(last_line)  :=  EMPTY.STRING; 
last_line  :=  last_ltne  - 1; 
end  loop; 

when  others  =>  error,  -  choice? 
end  case; 

when  others  =>  error,  —  choice6 
end  case; 

when  "  =>  -  one  line,  choices 
for  I  in  stait.line  ..  last_line  - 1  loop 
LINES(I):=LINES(I+1); 
end  loop; 

LINES(last_line)  ;=  EMPTY_STRING; 
when  others  =>  error;  -  choices 
end  case; 

when '-'  I  'y  =>  -  delimeter  for  1  digit  range,choice4 
CHOICES  :=  COMMAND(S); 
case  CHOICES  is 

when  '0'..'9'  =>  -  >=  1  digit  stop,choice5 
stop.line  :=  CHARACTER'POS(CHOICE5)-48; 

CHOICE6  :=  COMMAND(6); 
case  CHOICE6  is 

when  '0'..'9'  =>  —  2  digit  stop,choice6 
stop.line  :=  ((CHARACTER'POS(CHOICES)-48)  *  10)  + 
(CHARACTER’POS(CHOICE6)-48); 
counter  :=  start_line; 
for  I  in  stop_line  +  1 last_iine  loop 
LINES(counter)  :=  LINES(I); 
counter  :=  counter  + 1; 
end  loop; 

for  I  in  1  „  ((stopjine  -  stan_line)  +  1)  loop 
LINES(last_line)  :=  EMPTY_STRING; 
last_line  :=  last_line  - 1; 
end  loop; 

when  "  =>  -  1  digit  range 


324 


counter  :=  start_line; 
for  I  in  stop_line  +  1 ..  last_line  loop 
LINES(counter)  :=  LINES(I); 
counter  :=  counter  + 1; 
end  loop; 

for  I  in  1  ..((stop  line  -  stait_line)  + 1)  loop 
LINES(last_line)  :=  EMPTY_STRING; 
last.line  :=  last_line  - 1; 
end  loop; 

when  others  =>  error; 
end  case; 

when  others  =>  error,  --  choices 
end  case; 

when”=>  --choice4 
for  I  in  stait_line ..  last_line  - 1  loop 
LINES(I):=LINESa+l); 
end  loop; 

LINES(last_line)  ;=  EMPTY_STRING; 
when  others  =>  error;  -  choice  4 
end  case; 

when  others  =>  error,  --  choice  3 
end  case; 
end  DELETC; 

procedure  LIST(command:in  STRING;LINES:in  LINE_ARRAY)  is 

LINE ;  STRING(1..78)  :=  EMPTY.STRING; 
START_LINE,STOP_LINE :  INTEGER; 

CHOICE3,CHOICE4,CHOICE5,CHOICE6,CHOICE7 :  CHARACTER; 
begin 

CHOICE3  :=COMMAND(3); 
case  CHOICE3  is 
when  ’a’  I  ’A’  => 

put(character'val(12));  -  clear  screen 
for  1  in  1 ..  last.line  loop 
LINE;=LINES(I); 
if  I  =  25  then 
put("  . . .  more"); 

SKIP.LINE; 
put(character'val(  1 2)); 
end  if; 

INTEGER_INOUT.PUT(I,WIDTH  =>  2); 

PUT("  "); 

PUT_LINE(LINE); 
end  loop; 

when  'O' ..  '9'  =>  -  >=  1  digit,  choice3 
start.line  :=  CHARACTER’POS(CHOICE3)-48; 

CHOICE4  :=  COMMAND(4); 
caseCHOICE4is 
when  '0'..'9'  =>  --  2  digits,  choice4 
start.line  :=  ((CHARACTER'POS(CHOICE3)-48)  *  10)  + 
(CHARACTER'POS(CHOICE4)-48); 
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CHOICES  ;=  COMMAND(5); 
case  CHOICES  is 

when  I  ’/'  =>  -  delimeter  for  2  digit  range,  choices 
CHOICE6  :=  COMMAND(6); 
case  CHOICE6  is 

when  ’0'..'9'  =>  -  >=  1  digit  «op,  choice6 
CHOICE?  :=  COMMANEK?); 
case  CHOICE?  is 

when  '0' ..  '9'  =>  --  2  digit  stop, choice? 
stop.line  :=  ((CHARACTER'POS(CHOICE6)-48) 

*  10)  +  (CHARACTER1>OS(CHOICE7)-48); 
NEW.LINE; 

for  I  in  stait.Iine ..  stop_line  loop 
LINE:=LINES(I); 

INTEGER_INOUT.PUT(I,width  =>  2); 

PUT("  "); 

PUT_LINE(LINE); 
end  loop; 

when  others  =>  error;  —  choice? 
aid  case; 

when  others  =>  error,  -  choice6 
end  case; 

when  * '  =>  -  one  line,  choices 
NPW  1  TNF* 

UNE"*  LINES(stait_line); 
INTEGER_INOUT.PUT(start_line,width  =>  2); 

pure "); 

PUT_LINE(LINE); 
when  others  =>  error;  ~  choices 
end  case; 

when 1 7  =>  ~  delimeter  for  1  digit  range,choice4 
CHOICES  :=COMMAND(S); 
case  CHOICES  is 

when  '0'..'9'  =>  --  >=  1  digit  stop,d)oiceS 
stop_line  :=  CHARACTER'POS(CHOICES)-48; 

CHOICE6  :=  COMMAND(6); 
caseCHOICE6is 

when  '0'..'9'  =>  -  2  digit  stop,choice6 
stop.line  :=  ((CHARACTER’POS(CHOICE5)-48)  *  10)  + 
(CHARACTER'POS(CHOICE6)-48); 
NEW.LINE; 

for  I  in  start_line ..  stop.line  loop 
LINE:=LINES(I); 

INTEGER_INOUT.PUTa,widih  =>  2); 

PUT("  "); 

PUT.UNEfUNE); 
aid  loop; 

when  "  =>  -  1  digit  range 
NEW.LINE; 

for  I  in  sta]t_line ..  stop_line  loop 
LINE:=LINES(D; 

INTEGER^INOUT.PUrawidth  =>  2); 

PUT("  "); 
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PUT_LINE(LINE); 
end  loop; 

when  others  =>  error, 
end  case; 

when  others  =>  error,  -  choices 
end  case; 

when”=>  —  choice4 
NEW_LINE; 

LINE  :=  LlNES(start_line); 

INTEGER  INOUT.PlJT(start_line,width  =>  2); 

PUT("  "); 

PUT_LINE(LINE); 
when  others  =>  error;  --  choice  4 
end  case; 

when  others  =>  error,  -  choice  3 
end  case; 
end  LIST; 

procedure  MODIFY(LINE;in  out  STRING;  LINE_NUM;in  INTEGER)  is 

C :  CHARACTER; 

CHANGE :  BOOLEAN  :=  FALSE; 

PLACE :  INTEGER  ;=0; 

begin 

loop 

INTEGER_INOirr.PUT(LINE_NUM, width  =>  2); 

PUT("  "); 

PUT_LINE(Lir.T,); 

PUT("  "); 

while  not  END_OF_LINE  loop 
GET(C); 
if  CHANGE  then 
for  I  in  reverse  PLACE ..  74  loop 
LINE(I+1);=LINE(I); 
end  loop; 

LINE(PLACE):=C; 

PLACE  :=  PLACE +  1; 
elsif  C  =  'd'  or  C  =  'D'  then 
for  I  in  PLACE  +  1 ..  74  loop 
LINE(I):=LINE(I+1); 
end  loop; 

LINE(78):=‘’; 
elsif  C  =  T  or  c  =  T  then 
CHANGE  :=TRUE; 

PLACE  :=  PLACE +1; 
else 

PLACE  :=  PLACE +1; 
end  if; 
end  loop; 

CHANGE  ;=  FALSE; 

SKIP_LINE; 
if  PLACE  =  0  then 
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exit; 

Old  if; 

PLACE  :=0; 
end  loop; 
end  MODIFY; 


procedure  MODIFY(coinnuind:in  STRING;LINES:in  out  LINE.ARRAY)  is 

UNE :  STRING(1..78); 

START_UNE,STOP_LINE :  INTEGER; 

CHOICE3,CHOICE4,CHOICE5,CHOICE6,CHOICE7 :  CHARACTER; 


begin 

CHOICES  :=  C0MMAND(3); 
case  CHOICE3  is 

when  'O' ..  '9'  =>  -  >=  1  digit,  choices 
stait_line  :=  CHARACTER'POS(CHOICE3)-48; 

CHOICE4  ;=  COMMAND(4); 
caseCHOICE4is 
when  '0'..'9'  =>  -  2  digits,  choice4 
start.line  :=  ((CHARACTER'POS(CHOICE3)-48)  *  10)  + 
(CHARACTER'POS(CHOICE4)-48); 

CHOICES  :=COMMAND(5); 
case  CHOICES  is 

when '-'  I '/  =>  -  delimeter  for  2  digit  range,  choices 
CHOICE6  :=  COMMAND(6); 
case  CHOICE6  is 

when  '0'..'9'  =>  -  >=  1  digit  stop,  choice6 
CHOICE7  :=  COMMAND(7); 
case  CHOICE7  is 

when  'O' ..  '9'  =>  -  2  digit  stop,choice7 
stop.Iine  :=  ((CHARACTER’POS(CHOlCE6)-48) 
♦  10)  +  (CHARACTER’POS(CHOICE7)-48); 
NEW.LINE; 

for  I  in  start  line ..  stop.line  loop 
UNE  :=  UNESCO; 

MODIFY(LINE,D; 

LINES(I)  :=  LINE; 
end  loop; 

when  others  =>  enor,  -  choice7 
end  case; 

when  others  =>  error,  -  choice6 
end  case; 

when  "  =>  -  one  line,  choices 
NEW.LINE; 

LINE  :=  LINES(start_line); 

MODIFY(LINE,stait_line); 

LINES(stait_line)  :=  LINE; 
when  others  =>  error,  -  choices 
end  case; 

when I  '/*  =>  -  delimeter  for  1  digit  range,choice4 
CHOICES  ;=COMMAND(S); 
case  CHOICES  is 
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when  *0'..'9'  =>  ~  >=  1  digit  stop,choiceS 
stop_Iine  :=  CHARACTER'POS(CHOICE5)-48; 

CH0ICE6  :=  C0MMAND(6); 
case  CH0ICE6  is 

when  '0'..'9'  =>  -  2  digit  stop,choice6 
stop_line  :=  ((CHARACTER'POS(CHOICE5)-48)  *  10) 
(CHARACTER*POS(CHOICE6)-48); 
NEW.LINE; 

for  I  in  stait.line ..  stop_Iine  loop 
LINE:=LINES(I); 

MODIFY(LINE,I); 

LINES(I):=LINE; 
end  loop; 

when  "  =>  -  1  digit  range 
NEW.LINE; 

for  I  in  start_line ..  stop_line  loop 
LINE  :=LINES(I); 

MODIFY(LINE,I); 

LINES(I):=LINE; 
end  loop; 

when  others  =>  error, 
end  case; 

when  others  =>  error,  -  choice5 
end  case; 

when"=>  -choice4 
NEW.LINE; 

LINE  :=  LINES(start_line); 

MODIFY(LINE,stan_line); 
lJNES(stait_line)  :=  LINE; 
when  others  =>  error;  --  choice  4 
end  case; 

when  others  =>  error,  -  choice  3 
end  case; 
end  MODIFY; 

procedure  EDITOR  is 

CHOICE  :  CHARACTER; 

COMMAND  :  STRING(L.78)  :=  (others  =>  ’ '); 

COMMAND.LENGTH  :  NATURAL  :=  0; 

begin 

LINES  (others  =>  EMPTY_STRING); 

LAST_LINE:=0; 

loop 

COMMAND  ;=  EMPTY.STRING; 

pure*  @  "); 

TEXTJO.GET_LINE(COMMAND,COMMAND_LENGTH); 
CHOICE  :=  COMMANDO); 
case  CHOICE  is 
when  'A'  I  'a'  => 

ADD(COMMANDa.INES); 
when  'M*  I W  => 


MODIFY(COMMANDa.INES); 

when'L'IT=> 

USKCOMMANDO-INES); 

when’D’l'd’=> 

DELETE(COMMANDa.INES); 
when  ’Q'  I  ’q'  => 

CHECK  :=  FALSE; 
exit; 

when’CI’c'=> 

CHECK  :=  TRUE; 
exit; 

when  ’?'  => 
new_line(2); 

put_line("(P)roblem  statement  p  --  restates  the  problem"); 
put_line("(C)heck  c  ~  checks  the  response");  put_line("(Q)uit 

q  ~  quits  the  ^tor"); 
new_line; 

put_line("(A)d<i  line  a  8  -  add  lines  after  line  8"); 

put_line("(D)elete  line  #Aange  d  8  -  removes  line  8  fi’om  sequence  and 

renumbers"); 

put_line("(L)ist  all  1  all  -  lists  all  the  lines  in  the  file"); 

put_line("(L)ist  line  #Aange  1 8-12  -  lists  lines  8  through  12,  inclusive"); 
new_line; 

put_line("(M)odify  line  #/range  m8  ~  prints  out  line  8  and  enables 

insertions/"): 

put_Une("  deletions"); 

new_line; 

put_line("  8  The  brown  fox  jumped  over  the  laiy  dog."): 

put_line("(I)nsert  i  quick  "); 

put_line("  8  The  quick  brown  fox  jumped  over  the  lazy  dog."); 

put_line("(D)elete  ddddd "); 

new_line(2); 
when  others  => 

PUT_LINE("THAT  IS  NOT  A  VALID  OPTION"); 
end  case; 
end  loop; 
end  EDITOR; 

endEDrrOR_PKG; 
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-  INSTRUCTIONS 
package  SCREENS.PKG  is 

subtype  SCREEN_LENGTH  is  INTEGER  range  1..14;  --  screens  in  the  buffer 
subt)^  LINE_LENGTH  is  INTEGER  range  1..25;  -  lines  per  screen 
type  SCREEN.ARRAY  is  array(SCREEN_LENGTH,LINE_LENGTH)  of 
STRING(1..80); 

SCREEN.NUMBER :  INTEGER  :=  1; 

SCREEN.COUNT  :  INTEGER  :=  1; 

SCREEN.DATA  :  SCREEN_ARRAY; 

CHECK  :  BOOLEAN  :=  FALSE; 

type  TOPIC_SCREENS  is  array(1..12)  of  INTEGER; 
TOPIC_SCREENS_ARRAY :  TOPIC_SCREENS  :=  (5, 13, 22. 28, 33, 41, 48, 

63,75,81,89, 103); 

type  TOPIC_PROB  is  array(L.12)  of  INTEGER; 
subtype  TOPICS  is  INTEGER  range  1..12; 

DUMB_STUDENT  :  constant  TOPIC_PROB  :=  (others  =>  0); 
type  USER_RECORD  is 
record 

USER_NAME:STRING(1..10):="  "; 

COMPLETED_TOPIC ;  TOPICS  :=  1; 

USER_TOPICS  :  TOPIC.PROB  :=  DUMB.STUDENT; 
end  record; 


CURRENT_TOPIC_NUMBER :  TOPICS  :=  1; 

USER.ID  :  STRING(1..10); 

USER_ID_LENGTH ;  INTEGER; 

USER.NUMBER :  INTEGER; 

USER.SPECmC :  BOOLEAN  ;=  FALSE; 

subtype  PROBLEM_TYPE  is  INTEGER  range  1..5; 
type  PROBLEM_INFO  is 
record 

START.STATE  :  INTEGER; 

PROB_START  ;  INTEGER; 

PROB.STOP  :  INTEGER; 

SOLN.START  :  INTEGER; 

SOLN.STOP  :  INTEGER; 
end  record; 

type  TOPIC_PROBLEMS  is  array(1..5)  of  PROBLEM.INFO; 
type  PROBLEM_DATA  is  array(1..12)  of  TOPIC_PROBLEMS; 

ITS_ADA_DATA  :  constant  PROBLEM.DATA  :=  (((1,1,3, 1,4), 
(1.1.3, 1,4), 

(6,7,8,9,10), 

(6.7.8.9.10) , 

(6.7.8.9.10) ), 

((1,2,3,4,5), 

(6.7.8.9.10) , 

(6.7.8.9.10) , 

(6.7.8.9.10) , 
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(6.7.8.9.10) ), 
((1,2,3,4,5), 

(6.7.8.9.10) , 

(6,7,8,9,10), 

(6.7.8.9.10) , 

(6.7.8.9.10) ), 
((1,2,3,4,5), 

(6.7.8.9.10) , 

(6,7,8,9,10), 

(6.7.8.9.10) , 

(6.7.8.9.10) ). 
((1,23.4,5), 

(6.7.8.9.10) . 

(6.7.8.9.10) . 

(6.7.8.9.10) , 

(6.7.8.9.10) ). 
((U.3.43). 

(6.7.8.9.10) , 

(6.7.8.9.10) , 

(6.7.8.9.10) , 

(6.7.8.9.10) ), 
((1,2,3,43), 

(6.7.8.9.10) , 

(6.7.8.9.10) , 

(6.7.8.9.10) , 

(6.7.8.9.10) ), 
((1,2,3,43). 

(6.7.8.9.10) , 

(6,7,8,9,10), 

(6.7.8.9.10) , 

(6.7.8.9.10) ), 
((133.43). 

(6.7.8.9.10) , 

(6,7,8,9,10), 

(6.7.8.9.10) , 

(6.7.8.9.10) ), 
((1,2,3,43). 

(6.7.8.9.10) , 

(6,7,8,9,10), 

(6.7.8.9.10) , 

(6.7.8.9.10) ), 
((133.43), 

(6.7.8.9.10) , 

(6.7.8.9.10) , 

(6.7.8.9.10) , 

(6.7.8.9.10) ), 
((1,23.43), 

(6.7.8.9.10) . 

(6.7.8.9.10) . 

(6.7.8.9.10) . 

(6.7.8.9.10) )); 
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procedure  QUIT_PROGRAM; 

procedure  LOAD_SCREENS(SCREEN_NUMBER:in  INTEGER; 

SCREEN_DATA:in  out  SCREEN_ARRAY); 
procedure  MENU_SCREEN(SCREEN_NUMBER:in  out  INTEGER; 

SCREEN_DATA:in  out  SCREEN_ARRAY); 
procedure  GET_USER_INFO(USER_ID:in  STRING;USER_ID_LENGTH:in 

INTEGER;CURRENT_TOPIC_NlJMBER:outTOPICS;USER_NUMBER:out 

INTEGER); 

procedure  UPDATE_USER_INFO(CURRENT_TOPIC_NUMBER:in  out  TOPICS; 
USER_NUMBER;in  INTEGER); 

procedure  OPEN_SCREEN_DISPLAY(SCREEN_NUMBER;in  out  INTEGER; 

SCREEN_DATA:in  out  SCREEN_ARRAY); 
procedure  SCREEN_DISPLAY(SCREEN_NUMBER:m  out  INTEGER; 
SCREEN_DATA:in  out  SCREEN_ARRA  Y; 

SCREEN_COUNT:in  out  INTEGER); 

end  SCREENS_PKG; 

with 

TEXT_I04DIRECT_I0,EDIT0R_PKG,ADA_LEX,ADA_LEX_I0,PARSER,DIAGN0S 

IS* 

useTEXT_IO,EDITOR_PKG,PARSER,ADA_LEX,ADA_LEX_IO,DIAGNOSIS; 
package  body  SCREENS_PKG  is 

subtype  LINE_TYPE  is  STRING(1..80); 

package  SCREENJO  is  new  DIRECTJO(LINE_TYPE); 

useSCREENJO; 

package  USER.INOUT  is  new  DIRECT_IO(USER_RECORD); 
use  USER.INOUT; 

procure  QUIT_PROGRAM  is 
begin 
null; 

end  QUIT.PROGRAM; 

procedure  LOAD_SCREENS(SCREEN_NUMBER:in  INTEGER; 

SCREEN_DATA:in  out  SCREEN_ARRAY)  is 

INFILE  :SCREEN_IO.FILE_TYPE; 

LINE  :STRING(1..80); 

FROM.NUMBER  :SCREEN_IO.POSmVE_COUNT  :=  1 : 
SCREEN.COUNTER  :INTEGER  :=  0; 

begin 

SCREEN_IO.OPEN(INFILE,MODE=>IN_FILEJSiAME=>"screens.dat’’); 
SCREEN_COUNTER  :=  SCREEN.NUMBER; 
while  not  END_OF_FILE(INFILE)  loop 
for  OUTER_INDEX  in  1„14  loop 
if  SCREEN.COUNTER  =  1  then 
FROM_NUMBER  :=  1; 
else 

FROM_NUMBER  := 

((SCREEN_IO.POSrnVE_COUNT(SCREEN_COUNTER) 
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-1)*25)  +  1; 

end  if; 

for  INNER.INDEX  in  1..25  loop 

LINE  :=  (others  => ' '); 

SCREEN_IO.READ(INFILEa.INEJTiOM_NUMBER); 

SCREEN_DATA(OUTER_INDEX4NNER_INDEX)  ;=  LINE; 

FROM.NUMBER  :=  FROM.NUMBER  + 1; 

end  loop; 

SCREEN.COUNTER  :=  SCREEN.COUNTER  + 1; 

Old  loop; 

exit; 

Old  loop; 

SCREEN_IO.CLOSE(INFILE); 

endLOAD.SCREENS; 

procedure  MENU_SCREEN(SCREEN_NUMBER:in  out  INTEGER; 

SCREEN_DATA:in  out  SCREEN.ARRAY)  is 

subtype  MENU_CHOICE  is  INTEGER  range  0..12; 

pacfc^e  INTEGER_INOUT  is  new  INTEGER_IO(MENU_CHOICE); 

use  INTEGER.INOUT; 

CHOICE  ;MENU_CHOICE; 

LINE1_24  :STRING(L,80); 

LINE_25  :STRING(1..80); 

begin 

PUT(CHARA(rrER’VAL(12)); 

for  D^EX  in  1..24  loop 
LINE1_24  :=  SCREEN_DATA(4, INDEX); 
PUT_LINE(LINE1_24(1,.79)); 

end  loop; 

LINE_25  :=  SCREEN  DATA(4,25); 

PUT(LINE_25(1..78)); 

INTEGER_INOUT.GET(CHOICE); 

case  CHOICE  is 
when  1  => 

SCREEN_NUMBER  :=  5;  -  Basics  of  Ada 
when  2  => 

SCREEN_NUMBER  :=  13;  -  Types 
when  3  => 

SCREEN_NUM^ER  ;=  22;  —  Expressions 
when  4  => 

SCREEN_NUMBER  ;=  28;  --  Arrays  and  Strings 
wh«i5=> 

SCREEN_NUMBER  ;=  33;  --  Input  and  Output 
when  6  => 

SCREEN.NUMBER  :=  41;  —  Control  Statements 
when  7  => 

SCREEN_NUMBER  :=  48;  —  Subprograms 
when  8  => 

SCREEN_NUMBER  :=  63;  --  Records  and  Dynamic  Strucmres 
when  9  => 
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SCREEN_NUMBER  :=  75;  --  Exceptions 
when  10  => 

SCREEN.NUMBER  :=  81;  -  FUes 
when  11  => 

SCREEN.NUMBER  :=  89;  -  Packages 
when  12  => 

SCREEN_NUMBER  :=  103;  ~  Tasking 
when  others  => 

USER.SPECmC  :=  TRUE; 

SCREEN.NUMBER  := 

TOPIC_SCREENS_ARRAY(CURRENT_TOPIC_NUMBER); 
end  case; 

LOAD_SCREENS(SCREEN_NUMBER,SCREEN_DATA); 

SCREEN_COUNT  :=  1; 

SCREEN_DISPLAY(SCREEN_NUMBER,SCREEN_DATA,SCREEN_COUNT); 

exception 

when  TEXT_IO.DATA_ERROR  => 

SKIP.UNE; 

SCREEN.NUMBER  := 

TOPIC_SCREENS_ARRAY(CURRENT_TOPIC_NUMBER); 

LOAD_SCREENS(SCREEN_NUMBER,SCREEN_DATA); 

SCREEN  COUNT  :=  1; 

SCREEN_DISPLAY(SCREEN_NUMBER,SCREEN_DATA,SCREEN_COUNT); 


end  MENU.SCREEN; 

procedure  GET_USER_INFO(USER_ID:in  STRING;  USER_ID_LENGTH:in 
INTEGER* 

CURRENT_TOPIC_NUMBER;out  TOPICS;USER_NUMBER;out  INTEGER) 
is 


USER.FILE ;  USER_INOUT.FILE_TYPE; 

USER  :  USER_RECORD; 

USER_REC_NO  :  USER_INOUT.COUNT  :=  1 ; 

SUM  :  INTEGER  :=0; 

begin 

OPEN(USER_FILE,INOUT_FILE,'’user.dat’’); 

loop 

READ(USER_FILE,USER,USER_REC_NO); 
if  USER.USER_NAME  =  USER_ID  then  —  found  record 
CURRENT_TOPIC_NUMBER  ;=  USER.COMPLETED_TOPIC; 
exit; 
else 

USER_REC_NO  ;=  USER_REC_NO  +  1; 
end  if; 
end  loop; 

USER.NUMBER  :=  INTEGER(USER_REC_NO); 
CLOSE(USER_FILE); 

exception 
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when  USER_INOUT.NAME_ERROR  =>  —  no  file  by  that  name 
CREATE(USER_FILE4NOUT_FILE,''user.dat"); 

USER_REC_NO  :=  1; 

USER.USER_NAME(1..USER_ID_LENGTH)  := 
USER_ID(1..USER_ID_LENGTH); 

WR1TE(USER_FILE,USER.USER_REC_N0); 

CURRENT_TOPIC_NUMBER  :=  1; 

USER_NUMBER  :=  INTEGER(USER_REC_NO); 

CLOSE(USER_FILE); 

when  USER_INOUT.E^_ERROR  =>  --  user  is  not  in  user  file 
USER_REC_NO  :=  USER_REC_NO  + 1; 
USER.USER_NAME(1..USER_ID_LENGTH)  := 
USER_ID(1..USER_ID_LENGTH); 

WRrrE(USER_FILE,USER,USER_REC_NO); 

CURRENT_TOPIC_NUMBER  :=  1; 

USER_NUMBER  :=  INTEGER(USER_REC_NO); 

CLOSE(USER_FILE); 
end  GET_USER_INFO; 

procedure  UPDATE_USER_INFO(CURRENT_TOPIC_NUMBER:in  out  TOPICS; 
USER_NUMBER:in  INTEGER)is 

USER.FILE ;  USER_INOUT.FILE_TYPE; 

USER  :  USER_RECORD; 

USER_REC_NO  :  USER_INOUT.COUNT  ;=  1; 

begin 

OPEN(USER_FILE,OUT_FILE."user.dat”); 

USER_REC_NO  :=  USER_INOUT.COUNT(USER_NUMBER); 
USER.USER_NAME  :=  USER_ID; 

CURRENT  TOPIC_NUMBER:=  CURRENT  TOPIC_NUMBER+ 1; 
USER.COMPLETED_TOPIC  :=  CURRENT  TOPIC.NUMBER; 
WRITE(USER_FE.E,USER,USER_REC_NO); 

CLOSE(USER_FE.E); 
end  UPDATE_USER_INFO; 

procedure  OPEN_SCREEN_DISPLAY(SCREEN_NUMBER:in  out  INTEGER; 
SCREEN_DATA;in  out  SCREEN_ARRAY)  is 

PAGE.CHOICE  :STRING(l..l); 

PAGE_CHOICE_LENGTH  rINTEGER  :=  0; 

CHOICE  .CHARACTER; 

LINE1_24  :STRING(1..80); 

LINE_25  :STRING(1..80); 

begin 

-  Opening  Screen 
SCREEN.NUMBER  :=  1; 

PUT(CHARACTER’VAL(12)); 
for  INDEX  in  1..24  loop 
LINE1_24  :=  SCREEN_D AT A(l, INDEX); 

PUT_LINE(LINE1_24(1  ..79)); 
end  loop; 
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LINE  25:=SCREEN_DATA(1.25); 
PUT(LINE_25(L.33)); 

GET  LINE(USER  ID,USER_ID_LENGTH); 


GET.USER  INFO(USER_ID,USER_ID_LENGTH.CURRENT_TOPIC_NUMBER.US 

ER.NUMBER); 

->  Screen  Manipulation  Information 
SCREEN_NUMBER  :=  2; 

PUT(CHARACTER'VAL(12)); 
for  B^EX  in  1..24  loop 
UNEl  24  :=  SCREEN_DATA(2, INDEX); 

PUT_OnE(LINE1_24(1  ..79)); 
end  loop; 

LINE  25:=SCREEN_DATA(2,25); 

PUT(LINE_25(1..78)); 

GET_line(PAGE_CHOlCE,page_choiceJength); 

CHOICE  :=  PAGE_CHOICE(l); 
case  CHOICE  is 
when  y  I  'F  => 

SCREEN.COUNT  :=  1; 

SCREEN_DISPLAY(SCREEN_NUMBER,SCREEN_DATA,SCREEN_COUNT); 

when  'Q'  I  'q'  => 

QUTT.PROGRAM; 
when  others  => 
null;  -fall thru 

end  case; 

-  Editor  Information 
SCREEN_NUMBER  :=  3; 

PUT(CHARACTER’VAL(12)); 
for  DWEX  in  1..24  loop 
LINE1_24  :=  SCREEN_DATA(34NDEX); 

PUT_LINE(LINE1_24(1  ..79)); 
end  loop; 

LINE_25  :=  SCREEN_DATA(3,25); 

PUT(LINE_25(1..78)); 

skip.line; 

GCT_LINE(PAGE_CHOICE,PAGE_CHOICE_LENGTH); 

CHOICE  :=  PAGE_CHOICE(l); 
case  CHOICE  is 
when  'p'  I  y  => 

SCREEN_NUMBER  :=  SCREEN.NUMBER  - 1; 

SCREEN jCOVm  :=  2; 

SCREEN_DISPLAY(SCREEN_NUMBER,SCREEN_DATA,SCREEN_COUNT); 

when  ’Q’  I  'q'  => 

QUTT.PROGRAM; 
when  others  => 

MENU_SCREEN(SCREEN_NUMBER,SCREEN_DATA); 
end  case; 

end  OPEN_SCREEN_DISPLAY; 
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procedure  SCREEN_DISPLAY(SCREEN_NUMBER;in  out  INTEGER; 
SCREEN_DATA:in  out  SCREEN_ARRAY; 

SCREEN_COUNT:in  out  INTEGER)  is 

PAGE_CHOICE  :STRING(l..l); 

PAGE_CHOICE_LENGTH  tINTEGER  :=  0; 

CHOICE  :CHARACTER; 

UNEl  24  ;STRING(1..80); 

LINE_25  ;STRING(1..80); 

MAX.NUMBER  .INTEGER  :=  1 12; 

procedure  SELECT_PROBLEMS  is 

type  PROBLEM_RECORD  is 
record 

PROBLEM.LINE :  STRING(1..78); 
end  record; 

package  PROBLEM_INOUT  is  new  DIRECT_IO(PROBLEM_RECORD); 
use  PROBLEM_INOUT; 

BAD  :  BOOLEAN  :=  FALSE; 

SOLVED  :  BOOLEAN  :=  FALSE; 

EMPTY.BUFFER  :  STRING(L.78)  :=  (others  => ' '); 
PROBLEM.UNE.BUFFER :  STRING(L.78)  :=  EMPTY.BUFFER; 
PROBLEM.UNE.LENGTH :  INTEGER; 

PROBLEM  FILE  :  PROBLEM  INOUT.FILE_TYPE; 

SOLUTION.FILE  :  PROBLEM  INOUT.FILE.TYPE; 

STUDENT.FILE  ;  TEXT  lO.FILE.TYPE; 

LINE  :  STRING(L.78); 

EMPTY.UNE  ;STRING(L.78):=  (others  =>"); 

EXPERT_FILE  :  TEXT_IO.FILE_TYPE; 

PROBLEM  ;  PROBLEM.RECORD; 

REC_NO  :  PROBLEM_INOUT.COUNT; 

PROBLEM_NUMBER  :  PROBl^M_TYPE  :=  1; 

START_STATE  :  INTEGER; 

PROB.START  :  INTEGER; 

PROB.STOP  :  INTEGER; 

SOLN_START  :  INTEGER; 

SOLN.STOP  :  INTEGER; 

procedure  INCREMENT(PROBLEM_NUMBER:in  out  PROBLEM_TYPE)  is 
begin 

PROBLEM_NUMBER  :=  PROBLEM_NUMBER  +  1; 
if  PROBLEM_NUMBER  >  5  then 
PROBLEM.NUMBER  :=  1; 
end  if; 

PUT(integer’image(PROBLEM_NUMBER)); 
end  INCREMENT; 

procedure  COPY_STUDENT_SOLN  is 
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EMPTY.UNE  :  STRING(1..78)  :=  (others  => ' '); 
LINE  :  STRING(1..78); 

INDEX  :  NATURAL; 

DONE  :  BOOLEAN  ;=  FALSE; 


begin 

if  IS_OPEN(STUDENT_FILE)  then 
DELETE(STUDENT_FILE); 
end  if; 

CREATE(STUDENT_FILE  J^AME  =>  "studenLdat"); 
for  I  in  1 ..  editor_pkg.last_line  loop  --  for  each  line 
LINE(1..78)  :=  EDITOR_PKG,LINES(I); 

DONE  :=  FALSE; 

INDEX  ;=  1; 
while  not  DONE  loop 
if  LINE(INDEX)  =  ASCn.CR  then 
PUT(STUDENT_FILE,ASCn.LF); 

DONE  :=  TRUE; 
else 

PUT(STUDENT_FILE,LINE(INDEX)); 
end  if; 

INDEX  :=  INDEX +  1; 
end  loop; 
end  loop; 

end  COPY_STUDENT_SOLN; 


procedure  COPY_EXPERT_SOLN  is 

EMPTY.LINE  :  STRING(1..80)  ;=  (others  => '  ’); 

LINE  :  STRING(L.80); 

INDEX  :  NATURAL; 

DONE  :  BOOLEAN  :=  FALSE; 

begin 

if  IS_OPEN(EXPERT_FILE)  then 
DELETE(EXPERT_FILE); 
end  if; 

CREATE(EXPERT_FILEJ^AME  =>  "expert.dat"); 
putC'OPENED  expert.dat"); 

for  REC_NO  in  PROBLEM_INOUT.COUNT(SOLN_START) .. 
PROBLEM_INOUT.COUNT(SOLN_STOP)  loop 
PROBLEM_INOUT.READ(SOLUTION_FILE,PROBLEM,REC_NO); 
LINE(1..78)  :=  PROBLEM.PROBLEM_LINE; 

DONE  :=  FALSE; 

INDEX  :=  1; 

»  while  not  DONE  loop 

if  LINE(INDEX)  =  ASCn.CR  then 
PUT(EXPERT_FILE,ASCn.LF); 

DONE  :=  TRUE; 
else 
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PUT(EXPERT_FILEa.INE(INDEX)); 
end  if; 

INDEX  :=  INDEX +1; 
end  loop; 
end  loop; 

end  COPY_EXPERT_SOLN; 


procedure  CHECK_SOLUnON(SOLVED;in  out  BOOLEAN)  is 
begin 

ADA_LEX_IO.OPEN_INPUTC*student.dat"); 

ADA_LEX_IO.CREATE_OUTPUT;PUTCparsing"); 

YYPARSE" 

STUDENtIpTR  :=  HW_PTR; 

ADA_LEX_IO.CLOSE_INPUT; 

ADA_LEX_IO.CLOSE_OUTPUT; 

SET_INPUT(STANDARD_INPUT);  —  due  to  changes  made  in 
SET_OUTPUT(STANDARD_OUTPUT);  -  adajexjo  package 
ADA  LEX  I  TNE55  •=  1  • 

ADA.LEX!  VARIABLE  ;=  O;put("now  expert"); 
COPY_EXPERT_SOLN;put("copial  expert"); 
ADA_LEX_IO.OPEN_INPUT("expertdat"); 

ADA_LEX_IO.CREATE  OUTPUT; 

YYPARSE; 

EXPERT.PTR  :=  HW  PTR; 

ADA.LEXJO.CLOSE  INPUT; 

ADA_LEXJO.CLOSE_OUTPUT; 

SET_INPUT(STANDARD_INPUl^;  -  due  to  changes  made  in 
SET_OUTPUT(STANDARD_OUTPUT);  -  adajexjo  package 
DIAGNOSE(STUDENT_PTR^XPERT_PTR, SOLVED); 
DELETE(STUDENT_FILE); 

DELETE(EXPERT_FILE); 
if  SOLVED  then 
PUTC'solved"); 
else 

PUT(”not  solved"); 
end  if; 

end  CHECK.SOLUnON; 

procedure  PRESENT_PROBLEM(PROBLEM_NUMBER:in  PROBLEM_TYPE; 
CURRENT_TOPIC_NUMBER:in  TOPICS)  is 

EMPTY_LINE  :  STRING(1  ..78)  :=  (others  =>  ’  ’); 

LINE  :  STRING(1..78); 


START.STATE  :=  ITS_ADA_DATA(CURRENT_TOPIC_NUMBER) 
(PROBLEM_NUMBER).START  STATE; 

PROB_START  :=  1TS_ADA_DATA(CURRENT_T0PIC_NUMBER) 
(PROBLEM_NUMBER).PROB_START; 

PROB.STOP  :=  ITS_ADA_DATA(CURRENT_TOPIC_NUMBER) 
(PROBLEM_NUMBER).PROB_STOP; 


340 


SOLN_START  :=  ITS_ADA_DATA(CURRENT_TOPIC_NUMBER) 
(PROBLEM_NUMBER).SOLN_START; 

SOLN_STOP  :=  ITS_ADA_DATA(CURRENT_TOPIC_NUMBER) 
(PROBLEM  NUMBER).SOLN_STOP; 

-  TEXT_IO.PUT(CHARACTER’VAL(12)); 

for  REC.NO  in  PROBLEM_INOUT.COUNT(PROB_START) 

..  PROBLEM_INOUT.COUNT(PROB_STOP)  loop 
PROBLEM_INOUT.READ(PROBLEM_FILEJ>ROBLEM,REC_NO); 
PROBLEM_LINE_BUFFER  :=  PROBLEM.PROBLEM_LINE; 
PUT_LINE(PROBLEM_LINE_BUFFER(1..78)); 
end  loop; 

NEW_LINE(2);  PUT("calls  editor"); 

EDITOR; 

end  PRESENT_PROBLEM; 

procedure  PRESENT_EXAMPLE(PROBLEM_NUMBER:in  PROBLEM_TYPE; 
CURRENT_TOPIC_NUMBER:in  TOPICS)  is 

CHAR  :  CHARACTER; 

begin 

START_STATE  :=  ITS_ADA_DATA(CURRENT_TOPIC_NUMBER) 
(PROBLEM_NUMBER).START_STATE; 

PROB_START  :=  1TS_ADA_DATA(CURRENT_T0PIC_NUMBER) 
(PR0BLEM_NUMBER).PR0B_START; 

PROB_STOP  ;=  rrS_ADA_DATA(CURRENT_TOPIC_NUMBER) 
(PR0BLEM_NUMBER).PR0B_ST0P; 

SOLN.START  :=  ITS_ADA_DATA(CURRENT  TOPIC.NUMBER) 
(PROBLEM_NUMBER).SOLN  START; 

SOLN_STOP  :=  ITS_ADA_DATA(CURRENT_TOPIC_NUMBER) 
(PROBLEM  NUMBER).SOLN_STOP; 

-  TEXT_IO.PUT(CHARACTER'VAL(12)); 

for  REC_NO  in  PROBLEM_INOUT.COUNT(PROB_START) 
PROBLEM_INOUT.COUNT(PROB_STOP)  loop 
READ(PROBLEM_FILE,PROBLEM,REC_NO); 
PROBLEM_LINE_BUFFER  ;=  PROBLEM.PROBLEM_LINE; 
PUT_LINE(PROBLEM_LINE_BUFFER(l  ..78)); 
end  loop; 

NEW_LINE(2); 

for  REC_NO  in  PROBLEM_INOUT.COUNT(SOLN_START) 

..  PROBLEM_INOUT.COUNT(SOLN_STOP)  loop 
READ(SOLUTION_FILE,PROBLEM,REC_NO); 
PROBLEM_LINE_BUFFER  :=  PROBLEM.PROBLEM_LINE; 
PUT_LINE(PR0BLEM_LINE_BUFFER(1..78)); 
end  loop; 

end  PRKENT.EXAMPLE; 

procedure  REMEDIATE(CURRENT_TOPIC_NUMBER:in  TOPICS)  is 
begin 

PUTC'remediate"); 
end  REMEDIATE; 
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begin  -  SELECT  PROBLEMS 
OPEN(PROBLEM_FILE,IN_FILE,"prob.(iat*'); 
OPEN(SOLUnON_FILE.IN_FILE,"soln.dat"); 
loop 

SOLVED  :=  FALSE; 

PRESENT  PROBLEM(PROBLEM_NUMBER,CURRENT_TOPIC_NUMBER);  -a 
COPY  STUDENT_SOLN; 

CHECK_SOLUTION(SOLVED); 
if  SOLVED  then  -  problem  a 

BAD  :=  FALSE;PUT(’’true");new_line;SOLVED  :=  FALSE; 
INCREMENT(PROBLEM_NUMBER); 

PRESENT  PROBLEM(PROBLEM_NUMBER,CURRENT_TOPIC_NUMBER);  -  b 
COPY_STUDENT_SOLN; 

CHECK_SOLUTION(SOLVED); 
if  SOLVED  then  —  problem  b 
exit;  --move on 
else  -  not  SOLVED,  problem  b 

PUT("false'');SOLVED  :=  FALSE;  INCREMENT(PROBLEM_NUMBER); 

PRESENT_EXAMPLE(PROBLEM_NUMBER,CURRENT_TOPIC_NUMBER); 
INCREMENT(PROBLEM_NlJMBER); 
end  if; 

else  -  not  SOLVED,  problem  a 
if  BAD  then  -2BADs 

REMEDIATE(CURRENT_TOPIC_NUMBER); 

exit; 

else 

BAD  TRUE;PUT_line("bad”);SOLVED  ;=  FALSE; 
end  if; 

INCREMENT(PROBLEM_NUMBER);put("exampIe’’); 

PRESENT_EXAMPLE(PROBLEM_NUMBER,CURRENT_TOPIC_NUMBER); 
INCREMENT(PROBLEM_NUMBER); 
endif;PUTrendIoop"); 
end  loop; 

CLOSE(PROBLEM_FILE); 

CLOSE(SOLUTION_FILE); 
end  SELECT.PROBLEMS; 

begin 

SELECT_PROBLEMS; 
end  SCREEN.DISPLAY; 

endSCREENS.PKG; 
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-  MAIN.A 

with  SCREENS.PKG; 
use  SCREENS.PKG; 

procedure  MAIN  is 

SCREEN_NUMBER :  INTEGER  :=  1; 
begin 

LOAD_SCREENS(SCREEN_NUMBER,SCREEN_DATA); 
OPEN_SCREEN_DISPLAY(SCREEN_NUMBER,SCREEN_DATA); 
end  MAIN; 


* 
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